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REVISED FORTRAN PROGRAM FOR CALCULATING VELOCITIES AND STREAMLINES 
ON THE HUB-SHROUD MIDCHANNEL STREAM SURFACE OF AN AXIAL-, 
RADIAL-, OR MIXED-FLOW TURBOMACHINE OR ANNULAR DUCT 
II - PROGRAMMER'S MANUAL* 
by Theodore Katsan is and William D. McNally 
Lewis Research Center 

SUMMARY 

A FORTRAN-IV computer program has been developed that obtains a detailed sub- 
sonic or transonic flow solution on the hub-shroud midchannel stream surface of a 
single blade row of a turbomachine. A solution can also be obtained for an annular duct 
without blades. The flow must be essentially subsonic, but there may be locally super- 
sonic flow. The solution is for two-dimensional, adiabatic shock-free flow. The blade 
row may be fixed or rotating, and the blades may be twisted and leaned. The flow may 
be axial, mixed, or radial. Upstream and downstream flow conditions can vary from 
hub to shroud, and provision is made for an approximate correction for loss of stagna- 
tion pressure. Viscous forces are neglected aloi^ solution mesh lines running from 
hub to shroud. 

The present program is a revision of a previous program and this report super- 
sedes NASA TN D-7344. The primary revisions are to extend the program to handle 
nonaxial flows without restriction, to handle annular ducts without blades, to allow for 
any specified streamwise loss distribution, and to make numerous detailed improve- 
ments for more accurate and efficient calculations. 

The basic analysis is based on the stream function and consists of the solution of 
the simultaneous, nonlinear, finite-difference equations of the stream function. This 
basic solution, however, is limited to strictly subsonic flow. When there is locally 
supersonic flow, a transonic solution must be obtained. The transonic solution is ob- 
tained by a combination of a finite-difference stream-function solution and a velocity- 
gradient solution. The finite-difference solution at a reduced mass flow provides in- 
formation that is used to obtain a velocity-gradient solution at the full mass flow. 

The program is reported in two volumes, with part I as the user's manual and 
part n as the programmer's manual. This report, part II, contains all the information 
necessary to understand the operation of the program. It explains the overall program 
procedure and gives a detailed description of all the subroutines. There is also a 
dictionary of variable names and a complete program listing. 

*Supersedes NASA TN D-7344. 


INTRODUCTION 


The design of blades for compressors and turbines ideally requires analytical 
methods for unsteady, three-dimensional, turbulent, viscous flow through a turboma- 
chine. Clearly, such solutions are impossible at the present time, even on the largest 
and fastest computers. The usual approach at present is to analyze only steady flows 
and to separate inviscid solutions from viscous solutions. Three-dimensional inviscid 
solutions are just beginning to be used with the present generation of computers. How- 
ever, they use excessive computer time. So at present, inviscid analyses usually in- 
volve a combination of several two-dimensional solutions on intersecting families of 
stream surfaces to obtain what is called a quasi-three-dimensional solution. 

Since there are several choices of two-dimensional surfaces to analyze, and many 
ways of combining them, there are many approaches to obtaining a quasi-three- 
dimensional solution. Most two-dimensional solutions are either on a blade-to-blade 
surface of revolution (Wu’s Sj surface, ref. 1) or on the meridional or midchannel 
stream surface between two blades (Wu's S 2 surface). However, when three- 
dimensional effects are most important, significant information can often be obtained 
from a solution on a passage cross-sectional surface (normal to the flow). This is 
called a channel solution (fig. 1). 



Figure 1. - Two^jimensiona! analysis surfaces in a turbomachine. 
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In this report a solution to the equations of flow on the meridional S 2 surface is 
carried out. This solution surface is chosen when the turbomachine under considera- 
tion has significant variation in flow properties in the hub-shroud direction, especially 
when input is needed to use in blade-to-blade calculations. The solution can be obtained 
either by the quasi-orthogonal method, which solves the velocity-gradient equation from 
hub to shroud on the meridional stream surface (ref. 2), or by a finite-difference meth- 
od, which solves a finite-difference equation for stream function on the same stream 
surface. The quasi-orthogonal method is efficient in many cases and can obtain solu- 
tions into the transonic regime. However, there is difficulty in obtaining a solution when 
blade aspect ratios are above 1. Difficulties are also encoimtered with curved passages 
and blades with low hub-tip ratios. For such cases, the most promising method is the 
finite-difference solution, but this solution is limited to completely subsonic flows. 

Finite-difference programs for flow on the midchannel surface of a turbomachine 
have been reported in the literature. However, many of these programs are proprie- 
tary or are of limited generality. The program reported herein is very general and has 
been thoroughly tested and refined as the result of extensive usage at the Lewis Research 
Center. 

The program described in this report uses both the finite-difference and the quasi- 
orthc^onal (velocity gradient) methods, combined in a way that takes maximum advantage 
of both. The finite-difference method is used to obtain a subsonic-flow solution. The 
velocity-gradient method is then used, if necessary, to extend the range of solutions into 
the transonic regime. 

A computer program called MERIDL has been written to perform these calculations. 
This program is written for an axial-, mixed-, or radial-flow turbomachine blade row, 
either a compressor or turbine, or for an annular duct. Upstream and downstream flow 
conditions can vary from hub to shroud. The solution is for compressible, shock-free 
flow or incompressible flow. Provision is made for an approximate correction for loss 
of stagnation pressure throi^h the blade row. The blade row may be either fixed or ro- 
tating, and the blades may be twisted and leaned. The blades can have a high aspect ra- 
tio and arbitrary thickness distribution. The solution obtained by this program also pro- 
vides the information necessary for a more-detailed blade shape analysis on blade-to- 
blade surfaces (fig. 1). A useful program for this purpose is TSONIC (ref. 3). 
Information needed to prepare all the input for TSONIC is calculated and printed by 
MERIDL. 

The MERIDL program reported herein is a revision of the prc^ram described in 
references 4 and 5. Two types of changes were made: first, extensions to thee ^ability 
of the program to handle cases beyond those originally offered; and second, revisions to 
improve the accuracy and reduce the run time of the program. Althoi^h the input form 
has been extended to handle additional input where required, any input that was satisfac- 
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tory for the original MERIDL program is still satisfactory for the revised MERIDL pro- 
gram. The following list itemizes the major extensions and revisions to the program 
(additional internal changes are also documented in this report): 

(1) The program has been extended to handle nonaxial flows without restriction as 
to the direction of flow. 

(2) The program has been extended to handle an annular duct without blades. 

(3) The pr(^ram has been extended to permit the user to specify an arbitrary 
streamwise distribution of loss within the blade row. This is in addition to the original 
provision for hub-to-shroud loss distribution. 

(4) The program has been modified so that the blade thickness can be specified pre- 
cisely by a set of tangential thickness coordinates. The original prc^ram required 
specification of thickness normal to the mean camber line on an input blade section. 

This normal thickness was influenced by blade lean, camber, and nonparallel blade sur- 
faces and was difficult to specify accurately for some blade shapes. 

(5) If desired, the leading- and trailing- edge mean camber line tai^ent armies can 
be specified as input. This simplifies the specification of some blade shapes. 

(6) Output quantities have been added to station-line output to give absolute velocity 
components and to give static as well as absolute and relative total temperature, den- 
sity, and pressure. 

(7) Several informational messages have been added to the output. 

(8) Additional error messages have been provided. 

(9) Upstream and downstream boundary conditions have been changed to give im- 
proved convergence and a better quality solution near these boundaries. 

(10) Interpolational and calculational procedures near the leading and trailing edges 
have been improved to give better convergence and smoother solutions in these regions. 

(11) Numerous small changes have been made to improve the accuracy and reduce 
the run time of the program. 

The MERIDL program has been implemented on the NASA Lewis time-sharing 
IBM-TSS/360-67 computer. For the numerical example of this report, storage of var- 
iables required 60 000 words for a 21 x 41 grid of 861 points. Variable storage could 
be easily reduced by equivalencing of variables or by using a coarser mesh. Storage 
requirements for the program code depend on the computer system and compiler being 
used. Run times for the program range from 3 to 15 minutes on IBM 360-67 equipment. 

The MERIDL program is reported in two volumes, with the user's manual presented 
as part I in reference 6 and the programmer's manual presented as part II in this report. 
Part I contains all the information necessary to use the program as is. It explains the 
method of solution and gives a numerical example to illustrate the use of the program. 
Part I describes the method of analysis and the input and output, gives a numerical 
example, and derives the mathematical equations used (in the appendixes). This report, 
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part n, contains all information necessary to understand the operation of the program. 

It explains the overall program procedure and gives a detailed description of all the 
subroutines. There is also a dictionary of variable names and a complete program list- 
ing. The appendixes explain the numerical techniques used and derive certain numer- 
ical algorithms. 


OVERALL PROGRAM PROCEDURE 


This section gives an overall view of the prc^ram calculational procedure. The 
next section should be consulted for the detailed program procedure. Reference will be 
made to the proper section or appendix for the equations and their derivation or for the 
numerical techniques used. 

The main program guides the overall flow of the prc^ram. All the principal sub- 
routines are called by it. Figure 2 is a flow chart of the main program. The first step 
is to read and print out all the input data. This is done by the subroutine INPUT. Up- 
stream and downstream flow conditions can be given either as a function of the stream- 
line or as a function of radius. For program calculations, both the stream function and 
the radius are needed. Subroutine INPUT estimates values of either stream function or 
radius, whichever was not given as input, based on the area distribution. These values 
are later adjusted with e"ch iteration. INPUT also calculates tangential blade thickness, 
if it is not given directly as input. The next step is to call subroutine INPLOT, which 
plots all the upstream and downstream input flow variables as well as the input blade 
sections from hub to shroud. 

The next subroutine is MESHO, which calculates the coordinates of the orthogonal 
mesh in the solution region. After this, subroutine PRECAL is called to calculate those 
quantities that remain fixed throughout the calculations. These quantities include the 
s and t mesh coordinates, hub and shroud wall curvatures, and leading- and trailing- 
edge z- and r-coordinates at horizontal mesh lines. Subroutine PRECAL also calls 
THETOM and THIKOM. Subroutine THE TOM calculates 90/9s and 90/ 9t at the orthog- 
onal mesh points. (All symbols are defined in appendix H. ) These partials are used 
later to calculate the blade flow angle ^ and the tangential velocity after the me- 
ridional velocity has been calculated. Subroutine THIKOM calculates the tangen- 
tial blade thickness t^ at the orthogonal mesh points. Finally, PRECAL makes cor- 
rections in mass flow, wheel speed, and whirl for the reduced-mass-flow solution if 
the full-mass-flow solution cannot be obtained directly (i. e. , when REDFAC < 1.0). 

Next subroutine ME PLOT is called to plot the meridional plane view of the blade 
and passage and to plot the orthogonal mesh. Then subroutine INIT is called to initialize 
array variables as required for the first iteration. Most variables are set either to 
zero or to some value that will avoid division by zero later on. 
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Figure 2. - Flow chart of main program. 


At this point, everythii^ is ready to solve the stream-function, finite-difference 
equations. These equations are nonlinear. They are solved by an iterative procedure, 
with two levels of iteration. The inner iteration solves a linearized equation, and the 
outer iteration makes corrections to the linearized equation so that the solution con- 
verges to the solution of the original nonlinear equation. There are four subroutines 
called to obtain the solution to the linearized equation: COEF, SOR, LOSSOM, and 
NEWRHO. Then there are four subroutines to print and plot this information and pre- 
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pare for the next outer iteration: OUTPUT, INDEV, SLPLOT, and SVPLOT. Calls to 
these eight subroutines are repeated until convergence is obtained. 

Subroutine COEF calculates the coefficients of the finite-difference equations. 

These coefficients are derived in appendix A. Because of the sensitivity of the calcula- 
tions to the value of 3(rVg)/3t, this value is damped from iteration to iteration. Thus, 
only a portion of the predicted change in value is actually used. This portion is speci- 
fied by the input value of DNEW. 

Subroutine SOR solves the finite-difference equations for the stream function u 
by successive overrelaxation using an optimum overrelaxation factor (ORF). This is 
the inner iteration. The optimum overrelaxation factor is calculated by subroutine SOR 
on the first iteration. 

Subroutine LOSSOM calculates the ratio of actual to ideal relative stagnation pres- 
sure downstream of the blade and then distributes the loss linearly, or as specified by 
the input, through the blade row from the leading to the trailing edge, or through the 
annular passage if no blades are present. The method of making loss corrections is 
discussed in appendix D of part I (ref. 6). 

Subroutine NEWRHO calculates velocity components at each mesh point by differ- 
entiating the stream function numerically along the orthc^onal mesh lines. These values 
are used to calculate new densities at each mesh point. When whirl is not given as in- 
put, NEWRHO also makes reinitialization calls to readjust the estimated values of 
stream function to go with the input temperature, density, and tai^ential velocity (ap- 
pendix B). Subroutine NEWRHO also calculates values of ^ and ^ (eqs. (Al) to (A3)), 
at the mesh points, to be used in COEF on the next iteration. And NEWRHO checks the 
relative change in velocity from the previous iteration at each mesh point. The maxi- 
mum relative change in velocity is checked to see if the solution is converged. 

Now that a solution (converged or not) has been obtained, OUTPUT is called. Sub- 
routine OUTPUT first calculates other velocity components and flow aisles at all mesh 
points. Then OUTPUT calculates streamline curvature and critical velocity ratio at 
each mesh point. If there are blades, subroutine BLDVEL is called to calculate the 
blade surface velocities, as explained in appendix G of part I (ref. 6). Also BLDVEL 
calculates the average blade-to-blade density to be used in NEWRHO in the next itera- 
tion. And BLDVEL calculates F^ at each point by using equation (A4). The vector 
component F^ is used by COEF in calculating the coefficients of the finite-difference 
equations. After returning from BLDVEL, OUTPUT will print out data at the orthogonal 
mesh points, if desired. Then, if output is desired along streamlines, the necessary 
interpolation wiU be done and data will be printed for all streamlines. Similarly, in- 
terpolation will be done and data printed for hub-shroud station lines. 

After OUTPUT, subroutines INDEV and TSONIN are called if there are blades. 
Subroutine INDEV calculates a correction to dO/ds for a short distance into the blade 
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row to match the mean surface within the blade row to the free-stream flow angles, both 
upstream and downstream. The method for doing this is described in appendix F of 
part I (ref. 6). INDEV also calculates and prints out incidence and deviation angles if 
this is requested. Then TSONIN will calculate and print TSONIC input if desired. Also 
if desired, SLPLOT will plot the streamlines and SVPLOT will plot the mean and blade 
surface velocities. 

At this point, the main prc^ram will start a new iteration by going back to COEF if 
the solution has not converged. If the solution has converged, there are two possibil- 
ities. K REDFAC is 1, the final solution has been obtained and the program is through. 
If REDFAC is less than 1, the final approximate full-mass-flow solution will be calcu- 
lated by TVELCY. First, the mass flow, rotational speed, and inlet and outlet whirl 
are restored to their full values. This requires reinitialization calls of LAMDAF and 
RVTHTA for inlet and outlet whirl. Then TVELCY calculates 3Wj^/9m and 3Wg/9m 
for use in the velocity-gradient equation. These quantities are first calculated from the 
reduced-mass-flow solution and then are adjusted by dividing by REDFAC. Now the 
velocity-gradient equation (derived in appendix C of part I (ref. 6)) is solved along each 
vertical mesh line. Iteration is required to establish the correct temperature, density, 
and whirl to use in the velocity-gradient equation. When TVELCY is through, TOUTPT 
is called. Subroutine TOUTPT is an alternate entry point for OUTPUT. The only 
difference is that the flow angles are considered to be known, and the velocity compo- 
nents are calculated from the velocity magnitude and the known flow aisles. After 
TOUTPT, if there are blades, PINDV is called to print incidence and deviation angles. 
Then the same sequence of TSONIN, SLPLOT, and SVPLOT is called as for the finite- 
difference solution. Normally, only the smaller ("subsonic") of two possibl.. solutions 
is obtained by TVELCY (part I (ref. 6), appendix C); but if desired, both the larger 
(’’supersonic") and smaller solutions can be obtained. If both solutions are desired, 
TVELCY, TOUTPT, PINDV, TSONIN, SLPLOT, and SVPLOT are called again. This 
completes the program. 


DETAILED PROGRAM PROCEDURE 


This section gives the detailed program procedure for all the subroutines. The 
previous section should be consulted for an overall view of the prc^ram calculational 
procedure. 

Most of the subroutines in MERIDL use the same set of variables. These variables 
are all defined in the section MAIN DICTIONARY . All subroutines are described prior 
to the main dictionary. First, the main subroutines and other subroutines that use the 
main dictionary are described, and then the remainir^ subroutines with special diction- 
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Figure 3L - Calling relation of subroutines. Called subroutines are always below the calling subroutine. (This is not a flow chart. ) 












































TABLE I. - SUBROUTINE CALLS AND COMMON BLOCKS 


Subroutine name 
or entry point 

COMMON 

blocks 

(a) 

Called subroutines 

Calling sub- 
routines 

Subroutine name 
or entry point 

COMMON 

blocks 

(a) 

Called subroutines 

Calling siAjroutlnes 

MERIDL 

/— / 

/IN PUTT/ 

/CALCON/ 

/VAROOM/ 

/ROTATN/ 

/SLCOM/ 

/INDCOM/ 

/PLTCOM/ 

INPUT 

MESHO 

PRECAL 

INIT 

COEF 

SOR 

LOSSOM 

NEWRHO 

OUTPUT 

INDEV 

TSONIN 

TVELCY 

TOUTPT (OUTPUT) 
PINDV (LINDV) 
PlcHting subroutines 

None - main 
program 

LOSSOM (see 
entry LOSSTV) 

/— / 

/INPUTT/ 

/CALCON/ 

Aarcom/ 

/ROTATN/ 

LAMDAF 

RVTHTA 

TIPF 

RHOIPF 

LAMNIT (LAMDAF 
RVTNIT (RVTHTA) 
TIPNIT (TTPF) 
RHINIT (RHOIPF) 
INRSCT 
SPLINT 

SPLENT (SPLINT) 

MERIDL 

LOSSTV (entry 
point for LOSSOM) 

/INPUTT/ 

/CALCON/ 

/VARCOM/ 

/ROTATN/ 

LAMDAF 

RVTHTA 

TIPF 

RHOIPF 

INRSCT 

SPLINT 

SPLENT (SPLINT) 

TVELCY 

INPUT 

/— / 

/IN PUTT/ 
/CALCON/ 

SPLINE 

SPLINT 

SPLENT (SPLINT) 
SPLE5L 

MERIDL 


MESHO 

/INPUTT/ 

/CALCON/ 

/ROTATN/ 

INRSCT 

ROTATE 

SPLINT 

SPLENT (SPLINT) 

MERIDL 


NEWRHO 

A--/ 

/INPUTT/ 

/CALCON/ 

aarcom/ 

LAMDAF 

RVTHTA 

TIPF 

RHOIPF 

SPLINE 

SLOPES 

MERIDL 

PRECAL 

/—/ 

/IN PUTT/ 
/CALCON/ 
/VARCOM/ 
/ROTATN/ 

THETOM 

THIKOM 

LAMNIT (LAMDAF) 

RVTNIT (RVTHTA) 

TIPNIT (TIPF) 

RHINIT (RHOIPF) 

INRSCT 

ROTATE 

SPLINE 

SPLINT 

SPLISL 

MERIDL 


OUTPUT (entry 
point TOUTPT) 

A-/ 

/INPUTT/ 

/CALCON/ 

/VARCOM/ 

/ROTATN/ 

/SLOOM/ 

BLDVEL 

ILETE 

LAMDAF 

RVTHTA 

TIPF 

RHOIPF 

LININT 

ROTATE 

SPLINT 

SLOPES 

MERIDL 

THETOM 

/— / 

/INPUTT/ 

/CALCON/ 

/ROTATN/ 

/INDCOM/ 

LININT 

ROTATE 

SPLINT 

SPINSL 

PRECAL 

BLDVEL 

/— / 

/INPUTT/ 

/CALCON/ 

aarcom/ 

LAMDAF 

TIPF 

RHOIPF 

SLOPES 

OUTPUT 

TOUTPT 

THIKOM 

/INPUTT/ 

/CALCON/ 

/ROTATN/ 

/INDOOM/ 

LININT 

SPLINT 

PRECAL 

ILETE 

/INPUT/ 

/CALCON/ 

/SLCOM/ 

SPLINT 

SPLENT (SPLINT) 

OUTPUT 

TOUTPT 

JNIT 

/IN PUTT/ 
/CALCON/ 
/VARCOM/ 

LAMDAF 

TIPF 

RHOIPF 

MERIDL 

INDEV 

A-/ 

/INPUTT/ 

/CALCON/ 

aarcom/ 

/ROTATN/ 

/INDCOM/ 

LAMDAF 

RVTHTA 

LININT 

MERIDL 

COEF 

/— / 

/INPUTT/ 

/CALCON/ 

Aarcom/ 

None 

MERIDL 

SOR 

A/ / 

A-/ 

/DJPUTT/ 

/CALCON/ 

AARCOM/ 

None 

MERIDL 


*/“"“/ denotes unlabeled COMMON block. 
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TABLE I. - Continued. 


Subroutine name 

COMMON 

Called subroutines 

Calling sub- 

Subroutine name 

COMMON 

Called subroutines 

Calling subroutines 

or entry point 

blocks 


routines 

or entry point 

blocks 




(a) 




(a) 



TSONIN 

/— / 

LAMDAF 

MERIDL 

RVTHTA (see 

A-/ 

None 

LOSSOM 


/INPUTT/ 

RVTHTA 


entry RVTNIT) 

/INPUTT/ 


LOSSTV (LOSSOM) 


/CALCON/ 

TIPF 



/CALCON/ 


NEWRHO 


/VARCOM/ 

RHOIPF 



/VARCOM/ 


OUTPUT 


/ROTATN/ 

INRSCT 



/ROTATN/ 


TOUTPT (OUTPUT) 


/SLCOM/ 

LININT 





INDEV 


/OJDCOM/ 

ROTATE 





TSONIN 



SPLINE 





TVEIXTY 



SPLINT 





LINDV 



SPLESL 





TINDV (LINDV) 

TVELCY 

/— / 

LOSSTV (LOSSOM) 

MERIDL 

RVTNIT (entry 

/— / 

LININT 

PRECAL 


/mPUTT/ 

LINDV 


point for RVTHTA) 

/INPUTT/ 

SPLINE 

LOSSOM 


/CALCON/ 

TINDV (LINDV) 



/CALCON/ 

SPLINT 

TVELCY 


/VARCOM/ 

LAMDAF 



/VARCOM/ 





RVTHTA 



/ROTATN/ 





TIPF 

RHOIPF 


TIPF (see entry 

/INPUTT/ 

None 

INIT 



LAMNIT (LAMDAF) 
RVTNIT (RVTHTA) 
CONTIN 
SLOPES 


TIPNIT) 

/CALCON/ 


LOSSOM 

LOSSTV (LOSSOM) 

NEWRHO 

OUTPUT 

TOUTPT (OUTPUT) 
BLDVEL 

LINDV (entry 

A-/ 

LAMDAF 

TVELCY 




point - TINDV; see 

/mPUTT/ 

RVTHTA 





TSONIN 

also entry PINDV) 

/CALCON/ 

TIPF 





TVELCY 


/VARCOM/ 

RHOIPF 





LINDV 


/ROTATN/ : 

LININT 





TINDV (LINDV) 


/INDCOM/ ; 











TIPNIT (entry 
point for TIPF) 

/INPUTT/ 

/CALCON/ 

SPLINE 

PRECAL 

PINDV (entry 

A--/ 

LAMDAF 

MERIDL 

LOSSOM 

point for LINDV) 

/INPUTT/ 

/CALCON/ 

RVTHTA 


RHOIPF (see 

/INPUTT/ 

None 

INIT 


/VARCOM/ 

/ROTATN/ 

/INDCOM/ 



entry RHINIT) 

/CALCON/ 


LOSSOM 

LOSSTV (LOSSOM) 

NEWRHO 

OUTPUT 

LAMDAF (see 

A- / 

None 

INIT 




TOUTPT (OUTPUT) 

entry LAMNIT) 

/INPUTT/ 


LOSSOM 




BLDVEL 


/CALCON/ 


LOSSTV 




TSONIN 


/VARCOM/ 


NEWRHO 




TVELCY 


/ROTATN/ 


OUTPUT 




LINDV 




TOUTPT 




TINDV (LINDV) 




BLDVEL 

INDEV 

RHINIT (entry 

/INPUTT/ 

SPLINE 

PRECAL 




TSONIN 

point for RHOIPF) 

/CALCON/ 


LOSSOM 




TVELCY 

LINDV 

CONTIN 

/— / 

PABC 

TVELCY 












TINDV 

PARC 

None 

None 

CONTIN 




PINDV 

INRSCT 

/-'-/ 

SPLINT 

MESHO 

LAMNIT (entry 

/— / 

LININT 

PRECAL 


PRECAL 

point for LAMDAF) 

/mPUTT/ 

SPLINE 

LOSSOM 




LOSSOM 


/CALCON/ 

/VARCOM/ 

/ROTATN/ 

SPLINT 

TVELCY 




TSONIN 


V — / denotes unlabeled COMMON block. 
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TABLE I. - Concluded. 


Subroutine name 
or entry point 


SPLINE 


SPLINT (see 
entry SPLENT) 


COMMON 

blocks 

(a) 

/—/ 


/— / 


/— / 


Called subroutines 


Calling sub- 
routines 


THE TOM 

THIKOM 

OUTPUT 

TOUTPT 

INDEV 

TSONIN 

LINDV 

TINDV 

LAMNIT 

RVTNrr 


MESHO 
PRECAL 
THE TOM 
OUTPUT 
TOUTPT (OUTPUT) 
TSONIN 


INPUT 
PRECAL 
NEWRHO 
TSONIN 
LAMNIT (LAMDAF)| 
RVTNIT (RVTHTA) 
TIPNIT (TIPF) 
RHINIT (RHOIPF) 


INPUT 

MESHO 

PRECAL 

THE TOM 

THIKOM 

LOSSOM 

LOSSTV (LOSSOM) 
OUTPUT 

TOUTPT (OUTPUT) I 
TSONIN 
ILETE 
LAMNIT (LAMDAF)| 
RVTNIT (RVTHTA) 
INRSCT 


Subroutine name 
or entry point 


SPLENT (entry 
point for SPLINT) 


SPLISL 


SPINSL 

Plotting subroutines 


COMMON 

block 

(a) 




A-'/ 


/—/ 

/INPUT/ 

/CALCON/ 

/ROTATN/ 

/SLCOM/ 

/PLTCOM/ 


Called subroutines 


Not applicable 


Calling subroutines 


INPUT 

MESHO 

LOSSOM 

LOSSTV (LCNSSOM) 
ILETE 


NEWRHO 

OUTPUT 

TOUTPT (OUTPUT) 

BLDVEL 

TVELCY 


INPUT 

PRECAL 

TSONIN 


THETOM 


V — / denotes unlabeled COMMON block. 
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aries are described. 

The calling relation of all subroutines is shown in figure 3. Note that figure 3 is 

not a flow chart. All subroutines called and all COMMON blocks for each subroutine 
are listed in table I. 

The first subsections presented herein describe the general aspects of the program, 
including storage requirements, conventions used, and labeled COMMON blocks. They ' 
are followed by a detailed description of the subroutines. 


STOltAGE REQUIREMENTS 

The MERIDL program has been implemented on the NASA Lewis time-sharing IBM- 
TSS/360-67 computer. The program consists of approximately 5000 lines of code. For 
the numerical example of part I (ref. 6), storage of variables required approximately 
60 000 words for a 21 X 41 grid of 861 points. As dimensioned for a 100 X 101 grid, 
storage of variables would require about 700 000 words. The user can reduce the stor- 
age requirements for variables, as desired, by changing the dimensions. The main 
dictionary indicates how each variable should be dimensioned to reduce the storage re- 
quired. This is indicated by reference to certain input variables, such as MM, MHT, 

NHUB, NTIP, NBLPL, NPPP, and so forth. The variables with the most significant ef- 
fect on storage requirements are MM and MHT. 

As an example, consider the two-dimensional array ALPHA. This variable is in 
the /VARCOM/ COMMON block and is dimensioned ALPHA (100, 101) in the program 
listing. In the main dictionary, it is listed as ALPHA (MM, MHTPl). Suppose that the 
maximum desired value for MM is 60 and that for MHT it is 40. Since MHTPl is 

MHT + 1, the maximum value for MHTPl would be 41. Then ALPHA should be dimen- 
sioned ALPHA (60, 41). 

Similarly, all other dimensioned variables should have their dimension changed as 
required. Most dimensioned variables are in COMMON blocks, but there are a few that 
are dimensioned locally only. In addition, the calls to LININT must be changed to reflect 
any changes in the dimensions of the first two LININT arguments, and calls to ROTATE 
must be changed to reflect the dimensions of the second, third, and last two arguments. 


CONVENTIONS USED IN PROGRAM 

For convenience, a number of conventions are used in naming variables and assign- 
ing subscripts. 

In addition to the basic orthogonal mesh, there are five special mesh schemes used, 
as iUustrated in figure 4. For each mesh, different conventions are used to indicate 
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mesh position. The subscripts I and J are used to denote orthogonal mesh position. 
The I is used to denote the vertical mesh line number, and the J is used to denote the 
horizontal mesh line number. The subscripts IS and JS are used in a similar manner 
to denote streamline mesh points, and IL and JL the station-line mesh points. Like- 
wise, IN and JN denote points on the input blade sections, and KN and LN denote 
points on the alternate blade mesh located at 5-percent- chord and 5-percent- span inter- 
vals in the THETOM subroutine. Note that I and IS take on the same values, as do 
JS and JL. 

In variable names, I or IN indicates the inlet (upstream of blade) and O or OUT 
indicates the outlet. Variables ending with OM are generally variables defined on the 
orthogonal mesh, and variables endii^ with ROT or R are usually coordinates with re- 
spect to the rotated axes. 

Velocity components on the orthogonal mesh usually have SUB in the name, such as 
WSUBZ for W^. Velocity components along streamlines end in SL (WZSL), while veloc- 
ity components on station lines end in ST (WZST). The letters H or HUB in a variable 
name indicate the hub, and T or TIP the tip; LE is used for leadii^ edge and TE for 
trailing edge. The letters TH indicate a variable in the 0-direction, SURF a variable 
on a blade surface, and BL a variable in the blade region, hi a variable name, TEM in- 
dicates a temporary variable; P is used to indicate a prime superscript, and PP to indi- 
cate double prime; D is used for derivative. Usually, several conventions are combined 
in each variable. For example, TIP is used for tJ, TPPTIP for T”/TJ, and DPDR for 
3p/3r. 

All subroutines used for plotting have PLOT in the name. 


LABELED COMMON BLOCKS 

Most variables that are used in more than one subroutine are placed in labeled 
COMMON blocks. A brief description of each labeled block is given. The same variable 
names are used in different subroutines for every variable in a COMMON block. The 
labeled COMMON blocks are as follows: 

/INPUTT/ is used for all input quantities. 

/CALCON/ is used for constants that are initially calculated and are usually not 
changed later. 

/VARCOM/ is used for all orthogonal mesh-point arrays that are changed in each 
iteration. 

/ROTATN/ is used for coordinates with respect to rotated axes. 

/SLCOM/ is used for output data along streamlines. 

/INDCOM/ is used for quantities calculated by THETOM to be used by INDEV, 
LINDV, and TSONIN. 
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/PLTCOM/ is used to plot data for hub, shroud, and blade leading and trailing 
edges. 

Table I shows which COMMON blocks are needed in each subroutine. 

ROTATED COORDINATES 

Spline curves are used for naost geometrical curve fitting in the MERIDL program. 
Since spline curves are limited to angles somewhat less than 90°, an option to use ro- 
tated coordinates may be exercised by the user when flow angles are much over 45° from 
axial. Rotated z- and r- coordinates are illustrated in figure 5. 

Subroutine ROTATE is used by MERIDL to transfer from unrotated to rotated coor- 
dinates (and vice versa). The option to work in rotated coordinates is specified through 
the input variables LROT and ANGROT. H ANGROT is not given as input (LROT = 0), 
there w ill be no difference between unrotated and rotated coordinates in the program, 
although the ROTATE calls are still made in the subroutines. 

All coordinates read into MERIDL as input are imrotated coordinates. Most of these 
are never rotated by the program. Likewise, some geometrical arrays calculated by 



Rgure 5. - Rotated z- and r-coordl nates. 
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the prc^ram are never rotated. On the other hand, many geometrical variables are cal- 
culated in the rotated system. Some of these are later unrotated, while others are not. 
The variables associated with each of these options are summarized in table II, which 
shows whether a variable was calculated or used in either rotated or unrotated z- and 
r-coordinates. Table HI shows which subroutines are involved in calculating, rotating, 
and unrotating these variables. 

In the description of individual subroutines, reference is made to both rotated and 
unrotated points. Unrotated points always refer to the z and r input coordinate direc- 
tions. Rotated points refer to coordinates that have been rotated as shown in figure 5. 


TABLE n. - PORTION z- AND r-VARlABLES AFFECTED BY ROTATION 
(a) Unrotated variables (b) Rotated variables 


Read in unrotated and never rotated 

ZBL(NPPP, NBLPL) 

RBL(NPPP, NBLPL) 

ZHUB(NHUB) 

RHUB(NHUB) 

ZTIP(NTIP) 

RTIP(NTIP) 

ZOMIN 

ROMIN 

ZOMBI 

ROMBI 

ZOMBO 

ROMBO 

ZOMOUT 

ROMOUT 

ZHIN 

RHIN 

ZTIN 

RTIN 

ZHOUT 

RHOUT 

ZTOUT 

RTOUT 


RADIN(NIN) 


RADOUT(NOUT) 

Calculated unrotated and never rotated 

ZOM(MM, MHTPl) 

ROM(MM, MHTPl) 

ZLEOM(MHTPl) 

RLEOM(MHTPl) 

ZTEOM(MHTPl) 

RTEOM(MHTPl) 


Read in unrotated and then rotated for internal use 

ZHST(NOSTAT) 

RHST(NOSTAT) 

ZTST(NOSTAT) 

RTST(NOSTAT) 

Calculated rotated and never unrotated 

ZOMROT(MM, MHTPl) 

ROMROT(MM, MHTPl) 

ZBLROT(NPPP, NBLPL) 

RBLROT(NPPP, NBLPL) 

ZPCTl(NBLPL) 

RPCTl(NBLPL) 

ZPCT2(NBLPC) 

RPCT2(NBLPC) 

ZHROT(NHUB) 

RHROT(NHUB) 

ZTROT(NTIP) 

RTROT(NTIP) 

ZLE(NBLPL) 

RLE(NBLPL) 

ZTE(NBLPL) 

RTE(NBLPL) 

ZLEOMR(MHTPl) 

RLEOMR(MHTPl) 

ZTEOMR(MHTPl) 

RTEOMR(MHTPl) 

ZLEH 

RLEH 

ZLET 

RLET 

ZTEH 

RTEH 

ZTET 

RTET 

ZLESL 

RLESL 

ZTESL 

RTESL 

ZRAD(NHUB or NTIP, 

RRAD(NHUB or NTIP, 

MHTPl) 

MHTPl) 

Calculated rotated and only unrotated 

for printir^ and plotting 

ZSL(MM, NSL) 

RSL(MM, NSL) 

ZST(NSL, NOSTAT) 

RST(NSL, NOSTAT) 

ZPC(NPPC, NBLPL) 

RPC(NPPC, NBLPL) 


17 




TABLE in. - SUBROUTINES INVOLVED WITH ROTATION 


Subroutine 

Variables read in 

Rotated or 


Comments 


or calculated 

unrotated 



INPUT 

ZBL, RBL 

Unrotated 

Read in unrotated 


ZHUB, RHUB 
ZTIP, RTIP 
ZOMIN, ROMIN 
ZOMBI, ROMBI 
ZOMBO, ROMBO 
ZOMOUT, ROMOUT 
ZHIN, RHIN 
ZTIN, RTIN 
ZHOUT, RHOUT 
ZTOUT, RTOUT 
ZHST, RHST 
ZTST, RTST 
RADIN 
RADOUT 





MESHO 

ZHROT, RHROT 

Rotated 

Rotated from ZHUB, RHUB 


ZTROT, RTROT 

Rotated 

Rotated from ZTIP, RTIP 


ZOMROT, ROMROT 

Rotated 

Calculated 


ZOM, ROM 

Unrotated 

Unrotated from ZOMROT, ROMROT 

PRECAL 

ZHST, RHST 

Rotated 

Rotated from input values with same name 


ZTST, RTST 



Rotated from input values with same name 


ZBLROT, RBLROT 



Rotated from ZBL, RBL 


ZLE, RLE 



Calculated 


ZTE, RTE 
ZLEH, RLEH 
ZLET, RLET 
ZTEH, RTEH 
ZTET, RTET 
ZLEOMR, RLEOMR 
ZTEOMR, RTEOMR 






ZLEOM, RLEOM 

Unrotated 

Unrotated from ZLEOMR, RLEOMR 


ZTEOM, RTEOM 

Unrotated 

Unrotated from ZTEOMR, RTEOMR 

THETOM 

ZPC, RPC 

Rotated 

Calculated 


ZPCT1,RPCT1 



Calculated on semi- alternate mesh (fig, 26) 


ZPCT2, RPCT2 



Calculated on alternate mesh (fig. 27) 


ZRAD, RRAD 



Calculated 

OUTPUT 

ZSL, RSL 

Rotated 

Calculated rotated, unrotated for printing, 





then rotated for later use 


ZST, RST 

Rotated 

Calculated rotated, unrotated for printing, 





and left unrotated 

TSONIN 

ZLESL, RLESL 

Rotated 

Calculated 


ZTESL, RTESL 

Rotated 

Calculated 




INCOMPRESSIBLE FLOW 


Provision has been made for incompressible flow analysis by MERIDL. The main 
difference is that the density at each point is constantj so the density arrays are initial- 
ized to the input density value. A streamwise loss of total pressure that is uniform 
from hub to shroud has no effect on the solution and is not considered for the incom- 
pressible case. The present method of solution is very sensitive to a hub-shroud varia- 
tion of total pressure for incompressible flow, so this variation is likewise not consid- 
ered. Thus, the PERLOS, PRIP, PROP, and LOSOUT arrays are not used, and any cal- 
culations involving temperature or pressure are omitted from the calculation for 
incompressible flow. A derivation of the necessary changes to the stream -function equa- 
tion (Al) is given in appendix D. 

The subroutines with differences for an incompressible flow calculation are INPUT, 
PRECAL, INIT, COEF, LOSSOM, NEWRHO, OUTPUT, BLDVEL, and TSONIN. These 
differences are mainly that the variable arrays RHO and RHOAV are set to the input 
density, and thereafter all calculations of density, temperature, and pressure (including 
I and are omitted. 


MAIN PROGRAM 

The program is segmented into several principal subroutines called by the main 
program, as indicated at the top of figure 3. The subroutines are called in sequence, 
except for the outer iteration and a switch to obtain a supersonic final solution. The 
outer iteration is a loop consisting of calls to COEF, SOR, LOSSOM, NEWRHO, OUT- 
PUT, INDEV, TSONIN, SLPLOT, and SVPLOT. This calling sequence and the outer 
iteration loop are shown more clearly in the flow chart for the main program, given in 
figure 2. Flow charts for some of the subroutines are also given with the subroutine 
descriptions. 


SUBROUTINES 
Subroutine INPUT 


Subroutine INPUT reads and prints all input data cards and initializes some variables 
for use later in the program. 

All input cards are first read and printed on the output listing in the same form and 
order in which they are given. All array bounds are then checked to see if they are 
within limits, and some miscellaneous constants are initialized. Estimates are made 
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of various required upstream and downstream flow conditions that were not given as in- 
put because other input options were used. Finally, blade surface and/or blade thickness 
coordinates are calculated when not given as input. 


Subroutine MESHO 

Subroutine MESHO calculates the coordinates of an orthogonal mesh covering the 
solution region from upstream to downstream of the blade row and from hub to shroud. 
Subroutine MESHO makes use of three other subroutines - ROTATE, SPLINT, and 
INRSCT. A flow chart for MESHO is given in figure 6. 

Subroutine MESHO begins with input geometry describing the hub and shroud of the 
flow passage and the numbers of mesh points desired in the horizontal and vertical di- 
rections. MESHO initially rotates the hub and shroud geometry through the input ar^le, 
ANGROT, if ANGROT is specified, so that the mesh generation is done in the rotated co- 
ordinate system. 

Then MESHO calculates the horizontal, or streamwise, orthogonals, as follows. If 
NHUB equals NTIP, lines are extended from each of the input points on the hub to the 
corresponding points on the shroud. If NHUB and NTIP are unequal, lines are extended 
from input points on the surface with a larger number of points to an equal number of 
equally spaced points on the opposite surface. In either case, each of these hub-shroud 
lines is then divided into MHT equal increments. The resulting coordinates are in the 
ZRAD and RRAD arrays. The hub-shroud lines and resulting horizontal orthc^onals 
are shown in figure 7. 

Vertical orthogonal lines are then constructed one at a time, moving from left to 
right between each pair of adjacent horizontal orthc^onals, proceeding from hub to 
shroud, as shown in figure 8. Before this process begins, however, the input mesh 
boundary points on the hub - ZOMIN, ZOMBI, ZOMBO, and ZOMOUT - are calculated 
in the rotated coordinate system. Rotated orthogonal mesh points (zbMROT) are then 
calculated on the hub between these boundary points. The correspondii^ r-coordinates 
(ROMROT) and slopes (SLOM) are obtained by a SPLINT call. 

The procedure for calculating vertical orthogonal links between the horizontal 
orttu^onals is then begun. This procedure, shown in figure 9, is analogous to a tech- 
nique for solving ordinary differential equations known as the improved Euler method 
or Heun's method (ref. 7). Beginning at known orthogonal mesh points on the lower 
orth(^onal, normals are constructed (such as line (I) in fig. 9) to the upper orthogonal. 
The Intersection coordinates of these lines with the upper orthc^onal are obtained with 
INRSCT calls, and then the slopes of the upper orthogonal at the intersections are ob- 
tained by a SPLINT call. Lines such as line in figure 9 are then constructed in such 
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Figure 6. - Flow chart for MESHO. 
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Figure 9. - Calculation procedure for a "verticaT orthogonal link. 


a way that they are perpendicular to the tangents to the upper orthc^onal at the inter- 
section points and pass through the original starting points on the lower orthogonal. The 
rotated z-coordinates of the intersections of both sets of lines, (T) and (^, are now 
known on the upper orthogonal. The desired new orthc^onal mesh point z-coordinates 
(ZOMROT) are the average of these two sets of z-coordinates. The corresponding ro- 
tated r-coordinates (ROMROT) and slopes are then calculated by a SPLINT call. Mesh 
angles (PHI) can now be obtained. 

This process of constructing vertical orthogonal links is continued until the shroud 
is reached by all vertical orthogonals. This completes the generation of the orthogonal 
mesh. Finally, the unrotated mesh coordinates (ZOM, ROM) are calculated from 
ZOMROT, ROMROT by a call to ROTATE. 

Notice in MESHO that the locations of the upstream and downstream boundaries of 
the orthc^onal mesh at the hub are fixed by the inputs ZOMIN and ZOMOUT (fig. 8). 

The locations of these boundaries at the tip, however, caimot be given ahead of time 
and are totally dependent upon the orthogonal mesh generation procedure. 

Streamwise distance between vertical orthogonals at the hub is determined by the 
number of mesh lines requested in the following three regions: MBI mesh lines up- 
stream of the blade from ZOMIN to ZOMBI; MBO - MBI mesh lines from ZOMBI to 
ZOMBO; and MM - MBO mesh lines downstream of the blade from ZOMBO to ZOMOUT 
(fig. 8). The number of horizontal orthogonals is MHT + 1, which is the same in all 
three regions. 
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Subroutine PRECAL 


Subroutine PRECAL calculates many of the fixed constants that will be needed by 
the subroutines in the outer iterative loop of MERIDL. Figure 10 gives a flow chart for 
PRECAL. 

First, PRECAL initializes the subroutines for calculating upstream and downstream 
flow conditions. To do this, it calls LAMDAF, RVTHTA, TIPF, and RHOIPF, enter- 
ing at the special entry points of these routines used for initialization. 

The array of blade-to-blade spacing B (the BTH array) is then initialized to the 
blade pitch (in radians) at every point on the solution mesh. This array is modified in 
the blade region later in PRECAL when THIKOM is called. 

In the cases where output streamline values (FLFR array) were not read in 
(NSL = 0), PRECAL assigns 11 values to FLFR from 0 to 1. 0, in increments of 0. 1. 
Also, if the given endpoints of FLFR do not equal 0 and 1. 0, PRECAL adds these values 
as endpoints. 

Then, PRECAL uses the z- and r-coordinates of the orthogonal mesh (ZOM and 
ROM), calculated in MESHO to calculate the s- and t-arrays (SOM and TOM) on the 
orthogonal mesh. Straight-line distances between adjacent points are used in this cal- 
culation of s and t, because the correction between arc length and chord length is not 
significant for adjacent points. 

If input hub and shroud station- line arrays were given (NOSTAT > 0), these arrays 
are then put into the rotated reference frame with ROTATE calls. Rotated blade geom- 
etry arrays (ZBLROT, RBLROT) are likewise calculated from the input arrays 
(ZBL,RBL). 

If there is no blade row in the solution region (MBI = 0), PRECAL then stores 
dummy values into the ILE and ITE arrays. A large section of code that pertains only 
to solutions with blades present is then skipped. 

In the case where blades are present, the rotated z- and r-coordinate arrays that 
define the leading and trailii^ edges of the blades (ZLE, RLE and ZTE, RTE) are then 
obtained. These are the first and last values for each blade plane from the ZBLROT 
and RBLROT blade- coordinate arrays. The intersections of these leading and trailing 
edges with the hub and shroud are also calculated with ENRSCT calls. 

Various quantities are then calculated on the orthogonal mesh at or near the lead- 
ing, and then the trailing, edge of the blade. With INRSCT calls, the rotated z- and 
r-coordlnates of intersections of horizontal mesh lines with the blade edges are calcu- 
lated. Vertical mesh-line numbers (ILE and ITE) of mesh points that lie just within the 
blade leading and trailing edges are then calculated by comparing the rotated z- 
coordinates of mesh points along the orthogonals with the rotated z-coordinates of in- 
tersections of the horizontal mesh lines with the blade edges. The s-coordinates are 
then calculated for the points where the horizontal mesh lines cross the blade edges. 
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Figure 10. - Flow chart for PRECAL 
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Theta coordinates are then calculated at these same points by means of SPLINT calls. 
Finally, ROTATE is used to calculate unrotated z- and r-coordinates of intersections 
of horizontal mesh lines with the blade edges. 

Next, arc ler^ths along the input blade-section mean camber lines and blade block- 
age are calculated. SPLINE or SPLISL calls are then used to calculate the slope and 
the second derivative of the mean camber line 0-coordinate as a function of arc length, 
on the same input sections. The input blade geometry, blockage, arc length, and first 
and second derivatives are printed in the output. 

At this point, PRECAL calls two other subroutines, THETOM and THIKOM. The 
THETOM routine calculates 00/9s and 00/ 3t at the orthogonal mesh points. The 
THIKOM routine calculates the stream -channel thickness arrays at the blade edges 
(BTHLE and BTHTE) and makes corrections to the BTH array to account for blade 
thickness. 

Then PRECAL reduces certain parameters for the case where a reduced-mass-flow 
solution will have to be obtained (REDFAC < 1. 0). Wheel speed (OMEGA) and mass 
flow (MSFL) are reduced by REDFAC, as well as whirl (LAMIN, LAMOUT) and tan- 
gential velocity (VTHIN, VTHOUT). Subroutines LAMDAF and RVTHTA are then re- 
initialized by LAMNIT and RVTNIT calls. 

Finally, PRECAL prints several arrays of debug information, if they are called 
for. Also, if the flow is incompressible (GAM = 0.), the density array is set to the input 
density given in the variable AR. 


Subroutine THETOM 

Subroutine THETOM calculates the gradients 00/0s and 00/0t at the orthogonal 
mesh points that lie within the leading and trailing edges of the blade. This process is 
thoroughly described in appendix C. 

Theta coordinates of the mean blade surface (THBL) are given at the input blade- 
section points (ZBL, RBL). Gradients of the 0-coordinate are required in the s- and 
t-directions at the orthogonal mesh points within the blade for use by the NEWRHO sub- 
routine. 

Subroutine THETOM makes use of the technique of defining an alternate mesh on 
which 00/0Z and 00/0r are obtained. By interpolation, 00/0z and 00/0r are then 
obtained at the required orthogonal mesh points. Finally, 00/0s and 00/0t are cal- 
culated from 00/0Z and 00/0r at these points. 
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Subroutine THKOM 


Subroutine THKOM first calculates the stream-channel thickness arrays BTHLE 
and BTHTE at the points where the orthogonal mesh lines cross the leading and trailing 
edges of the blades. The tangential blade thickness TTBL is known at the blade edges 
where they are crossed by the input blade sections. SPLINT calls are used to interpo- 
late and obtain this thickness where the blade edges are intersected by the horizontal 
orthogonal mesh lines. These thicknesses are subtracted from the pitch to obtain 
BTHLE and BTHTE. 

Then THKOM interpolates with LININT on the alternate mesh array TTPC of tan- 
gential blade thickness to obtain blade thickness at the points of the rotated orthogonal 
mesh, ZOMROT and ROMROT. A correction is then made to the BTH array at each 
mesh point by subtracting this blade thickness. 


Subroutine INIT 

Subroutine INIT initializes certain arrays in /VARCOM/. This is necessary to 
start the outer iteration running from COEF to SVPLOT. For the initial iteration, it 
is assumed that p = p'» throughout the passage. All other values are set to zero, ex 

cept for Wg, and cos(a - <p), which are set to values that will avoid division by 
zero. 


Subroutine COEF 

Subroutine COEF calculates the coefficients a^, ag, and a^ and the constants 
kQ for the finite -difference equations. The finite- difference equation is (A5)or (A7). 
The coefficients are calculated by the procedure of equation (A8), and the constants are 
calculated by equation (A9). Within the blade row, the value of the constant kg depends 
on 9(rVg)/9t. This gradient tends to be unstable with iteration, so that damping is 
usually required between iterations. The damping rate is controlled by the input vari- 
able DNEW. Suggestions for choosing proper values for DNEW are given in the INPUT 
section of part I (ref. 6). For every outer iteration, the maximum and minimum values 
of 9(rVg)/0t and the maximum predicted change in 9(rVg)/3t are calculated and 
printed. When it is indicated by the value of IDEBUG, the coefficients a. and the con- 
stants kQ will be printed. ^ 
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Subroutine SOR 


Subroutine SOR solves the finite-difference equations (A5) by the method of over- 
relaxation (ref. 8). Equation (A5) holds at every interior point of the orthogonal mesh 
where the value of u is initially unknown. Thus, if there are n interior points, we 
have n equations with n unknowns. Equation (A5) is nonlinear but can be linearized 
by using values from the previous outer iteration for the nonlinear terms or factors. 

SOR solves only the linearized equations. 

The overrelaxation iteration is the inner iteration; it is optimized by using an opti- 
mum overrelaxation factor (ORE). The calculation of ORF is done only the first time 
that SOR is called. The optimum value for the overrelaxation factor is estimated by 
using equations (B3) and (Bl) of reference 9. At each interior point, u“^ is calculated 
from the values of u at the neighboring points by 


.m+1 


4 


a.Ui 


where each u. is the most recently calculated value for the point. To start, Uq = 1 at 
the interior points and uj = 0 alongthe hub and shroud. The maximumj(LM^) and min- 
imum (T. MTN ) values over all the interior mesh points of the ratio Uq /u^ are cal- 
culated for m = 1, 2, 3, . . . until the LMAX and LMIN ratios are close to each other. 
Then the optimum over relaxation factor (ORF) is calculated by ORF = 

2/(l + -\/l - LMAXy The theory for calculating ORF is derived in reference 8. 

With an optimum value for the overrelaxation factor J2, the solution to equation (A5) 
is calculated by overrelaxation by 


u' 


m+1 


= u. 


m 



ajUi + 



where each u. is the most recently calculated value at an interior point or is a bound- 
ary value. During each iteration, the maximum change of the stream function is cal- 
culated. When this maximum change is reduced below 10 the iteration is stopped, 
and the current estimate of the stream function is accepted as the solution. 
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Subroutine LOSSOM 


Subroutine LOSSOM interpolates the total pressure loss at the downstream input 
station and then distributes this loss on the orthogonal mesh as specified by the input. 
The loss is stored in the PLOSS array at each orthc^onal mesh point. The loss is as- 
sumed to be zero for incompressible flow. A flow chart for LOSSOM is given in fig- 
ure 11. 

LOSSOM begins by makii^ reinitialization calls for LAMDAF, RVTHTA, TIPF, 
and RHOIPF on each iteration if whirl is not given as a function of the stream function 
The reinitialization is not needed for the LOSSTV entry point, which is used only for 
the final transonic velocity-gradient solution. Also, only one vertical mesh line 
(IM = il) is calculated at a time from the LOSSTV entry point. 

The loss is then calculated as 1. 0 minus the ratio of actual to ideal relative total 
pressure. 


Loss = 1 - 




ideal 


In one input option, loss is given directly; in the other option, pi, Tl, X, (rV^) , and 
Po are given and the loss is calculated from Euler’s equation by using the relations 





and 


( 1 ) 


P 


M 

o 



ideal 


P’ 


HI 


ideal 




'ideal 


If the loss is calculated, it is then printed; and if a negative loss is calculated, a 
warning message is printed. 

At this point, SPLINT is called to calculate the spline-fit cujrve for full downstream 
loss as a function of stream function from hub to shroud. Then SPLINT is called 
through the SPLENT entry point to get the full downstream loss corresponding to the 
stream function for each orthogonal mesh point. 

The actual loss to be applied at each mesh point (a peircentage of the full down- 
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Rgure 11. - Flow chart for LOS SOM. 




















stream value) is calculated in one of several ways. The most common situation occurs. 
When blades are present and there is a linear streamwise loss distribution (NLOSS = 0). 
In this case, loss is distributed linearly within the blades from zero loss at the leading 
edge to full loss at the trailing edge. Full loss is also used from the trailing edge to 
the downstream boundary. 

In other situations where there are no blades or a streamwise loss distribution is 
given as input, or both, some additional arrays are calculated on the first iteration. In 
these cases, the s-distances (SOMOUT array) from the upstream boundary to the down- 
stream input station along each horizontal mesh line are calculated. K there are no 
blades, the s-distances (SOMIN array) from the upstream boundary to the upstream in- 
put station are also calculated. 

For the case where blades are present and a streamwise distribution of loss within 
the blade row is given as input, the loss is distributed within the blades according to the 
values in the input PERLOS array. A linear distribution of loss is applied downstream 
of the blade from the final value of PERLOS at the trailing edge to full loss at the down- 
stream input station. Full loss is used from there to the downstream solution boundary. 

In the case where no blades are present, loss is distributed between the upstream 
and downstream input stations, either linearly or according to specified input distribu- 
tion in the PERLOS array. Full loss is then used from the downstream input station to 
the downstream solution boundary. 


Subroutine NEWRHO 

Subroutine NEWRHO calculates the velocity magnitude and components, as well as 
the density at each point of the orthogonal mesh. Figure 12 is a flow chart for NEWRHO. 

The main function of NEWRHO is to calculate the partial derivatives of tl.e stream 
function in the s- and t-directions. These partials are used to calculate the velocity 
components. These components, together with either the blade shape or the specified 
whirl, determine the relative velocity magnitude. With the relative velocity known, the 

density can be calculated. Subroutine NEWRHO calculates | and C for the next itera- 
tion. 

The first major loop calculates W^.. First, SPLINE is called to calculate 3u/3s 
along horizontal mesh lines. Then W^ is calculated by equation (Gil) of part I. 

The final major loop calculates W^, W^, V^, W, p, and ^ at every mesh point. 
The first inner loop stores values of t-distances and the stream function u in temporary 
arrays. Then SPLINE is called to calculate 3u/3t. The second inner loop performs 
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Figure 12. - Flow chart for NEWRHO. 


further calculations. Equation (GIO) of part l is used to calculate Wg. Within the blade 
row, Wg is calculated from Wg, W^, dO/ds, and 30/ 3t. Since 

Wg = W^tan^ 

tan^ = r^ = r('i^^ + if-*\ 
dm \0s dm 3t dm/ 


dm W^ 
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we have 


dm W„ 




= r(wM 
\ ds 


within the blade row. Outside the blade row. 


(rv,) 


Then and W are calculated by 


— wr upstream of blade 
r 


cur downstream of blade 


Vg = Wg + cur 


W = yWg + Wg + wj 


The relative stagnation pressure p" is calculated by 


p" = p!Rt:/^Y^^^^^ ^ 

' VI V Pideal > 


where 


111= 1 - 2cu\ - (cur)^ 


2CpTJ 


Equation (3) Is the same as equation (D5) ot part I with W = 0. The density p Is cal- 
culated by 
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p 



i/(r-i) 



Pjdeal - 
Pldeal / 


where T/T! is calculated by equation (D 5) of part I. This completes the second inner 
loop to statement 30. Then SLOPES is called to calculate 0T’'/at and 3p"/0t. This 

gives all the quantities necessary for the final inner loop to calculate ^ and ? from 

equations (A2) and (A3) of part I. 

After all calculations are done, the maximum and average relative change in ve- 
locity are printed. Also, if the solution is converged on velocity, the print control vari- 
ables are set to 1 whenever a positive value is specified as input. This results in output 

being printed for each item asked for after convergence. 

There are also two error messages for NEWRHO in case the velocity at some point 
becomes too large or if the upstream whirl is too large. Suggestions for correcting 
input are given in the section Error Messages in part I. 


Subroutine OUTPUT 

The OUTPUT subroutine calculates and prints all the major output data from 
MERffiL. A flow chart for OUTPUT is shown in figure 13. Depending upon the wishes 
of the user, OUTPUT has the potential for printing output on three separate sets of 
points. These points are illustrated in figure 14. Output may be obtained (1) at the 
orthogonal mesh points, (2) along streamlines where they are crossed by ve-hcal 
orthogonal mesh lines, and (3) along streamlines where they are crossed by user- 
designated hub-shroud station lines. A detailed description of the output in each case 
is given in part 1 under Printed Output. 

The printing of output is controlled by the iteration counter ITER and the input var- 
iables IMESH, ISLINE, and ISTATL. Because of the large volumes of output possible, 
it is only given at the locations requested by these variables and when ITER is an integer 

multiple of any of these variables. 

No matter what the values of IMESH, ISLINE, and ISTATL, data are calculated at 
the orthogonal mesh points for every iteration. (Whether or not it is printed depends 
upon IMESH. ) Output along streamlines and on station lines is then interpolated from 
the calculated data at the orthogonal mesh points if the values of ISLINE or ISTATL in- 
dicate that the user desires these outputs at the current iteration. Output along stream- 
lines is also calculated if it is needed for plotting (controUedby IPLOT) or if it is 
needed for calculating the input to the TSONIC program (controlled by ITSON). 

The first sections of the OUTPUT routine calculate data on the orthogonal mesh. 
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Figure 13. - Row chart for OUTPUT. 



Horizontal 
orthogonals 


Vertical 
orthogonals 


Stream I ines-< 


Mesh-point output ~ at intersections of 
orthogonal mesh 

Streamline output - where streamlines 
cross vertical orthogonals 
Station-line output - where streamlines 
cross user-designated station lines 

Streamlines and station lines 
Orthogonal mesh lines 


Figure 14. - Location of three major types of output. 
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At the main entry to this routine, Wg, W^, and are known from NEWRHO; and the 
other velocity components and flow angles are calculated as follows: 

I 

^t 

sin(o- - (p) 

W 

m 

Ws 

COs(of - <p) = 


= Wg cos (p - sin cp 

W = W. cos (p + W„ sin <p 
r t s 

a = tan 


|3 = tan 


This coding is followed by an entry point, TOUTPT, which is used only after TVELCY 
has been called to obtain transonic velocities (see the block diagram, fig. 2, when 
REDFAC < 1. 0). From this entry point, the velocity components are calculated some- 
what differently since W has been recalculated by TVELCY, as well as ^ upstream 
and downstream of the blade. The angle a is assumed to be the same as in the final 
subsonic iteration. With W, /3, and a known, the velocity components are now calcu- 
lated as follows: 



= W cos j3 

Wg = W sin p 

W„ = W^ cos a 
z in 

w^ = sin 
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Vg = W0 + a,r 

Subroutine BLDVEL is then called to calculate estimated blade surface velocities. 

If there are any choked vertical mesh lines in the transonic solution, the "choked" mes 
sage is stored where required. 

At this point in the prc^ram, all velocity components and flow angles have been 
calculated, regardless of the entry point. With velocity components and flow angles 
known, streamline curvature is obtained from 


1 _ _ 3a 

r^ dm 3s 


cos(a - (p) + — sin(of - (p) 

at 


Then the critical velocity ratio is obtained from 



If no output is to be printed, no further calculations are made by OUTPUT. 

Now, a check is made to see if the suction- and pressure-surface velocities have 
to be exchai^ed because of the orientation of the turbine or compressor. At this point, 
all desired information has been calculated on the ortht^onal mesh and is printed if 
ITER is a multiple of IMESH. 

The next section of the OUTPUT routine calculates output on the streamlines where 
they are intersected by vertical orthogonal mesh lines. This output is calculated only 
if ITER is a multiple of ESLINE, IPLOT, or ITSON. First, streamline z- and r- 
coordinates are calculated. The m- coordinates are then calculated from these, using 
the upstream mesh boundary along a streamline to correspond to m = 0. Interpolations 
are then made by using LININT and the orthogonad mesh data to obtain W^, W , W^, 
W/Wpr> 3nd 1/r^. By using variations of the ptececling formulas, W , / 3 , and W 

are calculated from these values. Subroutine ILETE Is called to establish which mesh 
points along streamlines are between the bla^e leading and trailing edges. Subroutine 
LININT is then used to obtain and 'at these points. Finally, this output is 
printed if ITER is a multiple of IS LINE. 

The next section of the OUTPUT routine calculates output on user-designated hub- 
shroud station lines where they intersect the streamlines. This output is calculated 
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and printed in the hub- shroud direction, in contrast to the throughflow direction of the 
previous two sets of output. It is only calculated if ITER is a multiple of BTATL. The 
z- and r-coordinates of the station lines are calculated first. All ’’regular” station 
lines are straight lines (not necessarily radial) from the hub to the shroud. ’’Blade 
edge” station lines are those whose hub and tip coordinates correspond to the intersec- 
tions of the blade leading and trailing edges with the hub and tip. Coordinates along 
these station lines will follow these edges even when the edges are cuiwed. After the 
z- and r-coordinates are established, m-coordinates are calculated from these, again 
using the upstream mesh boundary as the reference for m = 0. 

For a station line on the leading or trailing edge, free-stream values are extrap- 
olated along mesh lines to the leading or trailing edge and then interpolated along the 
leading or trailing edge at the specified output streamlines. The quantities W^, W^., 
and /3 are extrapolated and interpolated in this manner, and thus and Wg are 

calculated. On the other hand for a station line that is not on the leading or trailing 
edge, interpolations from the orthogonal mesh are made by LININT to obtain W^, W^, 
and W^, and then and |3 are calculated. For all station lines, the meridional 

streamline curvature and the fractional total pressure loss are then interpolated from 
the orth(^onal mesh by LININT. Now a and W are calculated by using the equations 
given previously. LININT is then called to interpolate and for station lines 

that lie within the blade. Finally, the remaining station-line output Vg, V, T”, 

W/W , p”, T’, p', T, p, and p is calculated at each point. The station-line output 
is then printed. 

The final small section of OUTPUT then restores and to the proper ar- 

rays if they were interchanged to correspond to suction and pressure surfaces for print- 
out, and any ’’choked" messages are removed. 


Subroutine BLDVEL 

Subroutine BLDVEL calculates blade surface velocities and densities and F^,. First, 
3{rV0)/3t and 3(rVg)/0s are calculated by using the SLOPES subroutine. Then, 
(d{rVg)/dn^B cos /3 is calculated, and and are calculated by equation (G4) 

of part I (ref. 6). From this, p^ and p^^ are calculated by equations (D4) and (D5) 
of part I. The average density p^^ is calculated by Simpson's rule 

+ ^ Pmid * Ptr 
Pav 6 

This quantity is used in NEWRHO in the next iteration. Then, the predicted value of F^ 
is calculated by 
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F. = — — DFDM 

^ B at 


where 


d(rVj 

DFDM = -B cos p ^ 

dm 

Equation (4) is obtained from equations (B25) and (G2) of part I. The new value for F^ 
is calculated from the old F^ and the predicted value of F^ by using the input damping 
factor FNEW, as explained in the section INPUT of part I. 

At the end, the minimum and maximum predicted values of F^, and the maximum 
change in F^. are calculated and printed. If debug output is requested, the arrays that 
change each iteration are printed. 


Subroutine ILETE 

The points where streamlines are intersected by the vertical orthc^onal mesh lines 
are the streamline mesh points. These are, in general, different from the orthc^onal 
mesh points. Subroutine ILETE calculates two integer arrays, ILS and ITS. They con- 
tain the numbers of the vertical mesh lines at the first intersection of a streamline with 
a vertical mesh line inside the blade region at the leading and trailing edges of the 
blades. These points are illustrated in figure 15. The ILS and ITS arrays are used in 
OUTPUT in the calculation of blade surface velocities along streamlines. 


r 
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Subroutine INDEV 


Subroutine INDEV recalculates d9/ds to allow for incidence and deviation. This 
means that the midchannel flow surface differs from the blade mean camber line near 
the leading and trailing edges, so as to match the upstream and downstream flow angles. 
Figure 16 shows the procedure as applied to the leading edge. A similar correction is 
made at the trailing edge. A correction for blockage is made so as to satisfy both con- 
tinuity and tangential momentiun at blade leading and trailing edges. 

The calculation starts at the hub and proceeds to successive horizontal mesh lines 
up to the tip. Both incidence and deviation corrections are calculated for each horizontal 
mesh line. 

First, the blade mean camber angle le leading edge is calculated. Then 

the flow angle corrected for blockage at the leading edge is calculated from equa- 
tion (Fl) of part I. The corrections to dO/ds are made so that the difference between 

and varies linearly from the blade leading edge to the distance specified in ap- 
pendix F of part I. This distance is DKTLE. The interpolation to calculate 
(BETAU) at each orthogonal mesh point near the leading edge is done next, followed by 
the calculation of (30/3s)^j (DTHDS(I, J)) from equation (F2) of part I. The calculation 
of blocked and unblocked incidence angles completes the leading-edge calculation. The 
trailing-edge deviation calculation is done in the same manner as the incidence calcula- 
tion. Finally, the incidence and deviation angles are printed if there was any output re- 
quested for the current iteration. 

No correction is made to dd/dt since it is nearly normal to the flow. 



Figure 16, - Corrected midchannel flow surface. The corrected 
midchannel flow surface Is used to calculate {d6/ds)jj^. In- 
cidence ■ - Pfj. 
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Subroutine TSONIN 


Subroutine TSONIN generates and prints the data required as input to the TSONIC 
blade-to-blade analysis program (ref. 3). Subroutine TSONIN is only called when ITER 
is a multiple of ITSON. The data generated are printed for each of the stream surfaces 
from hub to shroud, using 1 percent of the mass flow about a streamline to define a 
stream surface or flow channel. 

A complete description of the TSONIC input is given in the TSONIC report (ref. 3). 
The output generated in TSONIN can in general be directly submitted to the TSONIC 
program, However, the output should be inspected before doing so, because slight 
changes are sometimes required, depending upon how the user wishes to run the TSONIC 
program. These changes are described in part I. 

Along each output streamline, TSONIN obtains the upstream and downstream flow 
conditions T?, p|, \, and (rVe)^ with calls to TIPF, RHOIPF, LAMDAF, and RVTHTA. 
LINESTT calls are then used to obtain all the variables required to calculate blade-to- 
blade streamsheet thickness b, as well as loss distribution along the streamsheet. The 
thickness b is obtained from 


(pw^)^^ = P^^W^ + COB - Wjj.) 

which is derived from equation (G9) of part I, and 


(pW ) rB 
av 

Then TSONIN calculates the blade surface geometry on blade-to-blade stream sur- 
faces by a method described in reference 10. This process is complicated by the fact 
that leading- and trailing- edge radii are not used by MERIDL and have to be generated 
by TSONIN within the blade surface envelope. The origin for 0- coordinates for TSONIC 
is at the center of the leading-edge radius. Since the leading-edge radius is not known 
at the outset, 0- coordinates are initially calculated from the intersection of the mean 
camber line with the leading edge (appendix E). After the leading-edge radius has been 
determined, A0, the difference in 0 from the intersection of the mean camber line with 
the leading e(%e to the center of the leading-edge radius, is calculated and subtracted 
from all calculated blade surface 0 -coordinates. The technique used to generate the 
blade leading- and trailing-edge radii and calculate A0 are described in appendix E. 

Subroutine TSONIN calculates the blade surface coordinates for each point where the 
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meridional streamline is intersected by a vertical orthogonal mesh line, as explained in 
appendix E. H the blade envelope has no thickness at the leading or trailing edge, 
TSONIN gives it a leading-edge diameter equal to one-tenth of 1 percent of meridional 
chord. Any surface points too close to the leading- or trailing-e<%e points are then 
omitted from the set of surface coordinates. 

Then TSONIN calculates leading- and trailing-edge radii within the surface envelope 
as described in appendix E. The points of tangency of the radii with blade surfaces, and 
the tangency angles, are also obtained. The tangency points are then made the first and 
last points on each of the surfaces, and points outside of these or too close to these are 
excluded. All 0-coordinates are then shifted to TSONIC section origin (see appendix E). 
Finally, TSONIN calculates r-coordinates for each surface point, surface slopes, 
second derivatives, and curvatures and prints this information for both blade surfaces. 
This process is repeated for each streamline. 


Subroutine TVELCY 

Subroutine TVELCY calculates the full-mass-flow, transonic solution when REDFAC 
is less than 1. The velocity-gradient equation given in appendix A of part I is used to 
obtain the solution. Figure 17 is a flow chart for TVELCY. 

The first step in the program is to restore the full value of mass flow, rotational 
speed, and inlet and outlet whirl. The subroutines LAMDAF and RVTHTA must then 
be reinitialized. 

Next, 9Wj^/9m and 9Wg/9m are calculated. These are calculated from the 
partials with respect to s and t by using the angle a - (P- Since the calculations are 
based on the reduced-mass-flow values of and W^, the result must be divided by 

REDFAC to obtain the full-mass-flow values. 

After statement 55, variables are initialized for the main loop on vertical mesh 
lines. To start, 1 = 0 and INCR = 1. 

Statement 60 is the beginning of the main loop that ends at statement 290. The main 
loop starts at the upstream boundary and solves the velocity-gradient equation for each 
vertical mesh line. If there are blades, the procedure is to move downstream to each 
of the vertical mesh lines in sequence until the blade leading edge is reached. At this 
time, LINDV is called to make incidence corrections to ^ for a short distance beyond 
the leading edge, as described in appendix F of part I. After all leadii^-edge correc- 
tions to ^ are made, there is a jump to the downstream boimdary. Then the procedure 
is to move upstream to the blade trailing edge, at which time TINDV is called to make 
deviation corrections to /3. The prc^ram then proceeds upstream until a solution has 
been obtained for every vertical mesh line. 
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Figure 17. - Continued. 
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Figure 17. * Concluded. 


At statement 60, INCH is added to I to determine the next vertical mesh line. INCH 
is 1 at the start. After all incidence corrections to /3 are made, INCH is changed to -1. 
Then the solution will be found at the downstream boundary (I — Alhl) and I will decrease. 

The initial estimate of W on the hub (WHUB) is set equal to the reduced-mass -flow 
value for W divided by REDFAC. The first inner DO loop to statement 80 calculates 
coefficients a, b, and d for the velocity-gradient equation (A7) of part I. These coef- 
ficients are calculated by equations (A8) to (AlO) of part I. The initial arrays for whirl, 
temperature, and density are calculated at the same time. In this same loop a check is 
made to see if LINDV or TINDV should be called to make incidence or deviation correc- 
tions to /3. After the DO loop to statement 80, INCH will be set to -1 if all the incidence 
corrections have been made. 
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The outer iteration for a given vertical mesh line begins at statement 90. The first 
inner loop here calculates coefficient c for the velocity-gradient equation from equation 
(A9) or (AlO) of part I, as well as 2o)X - (wr)^, 2CpT|, and cos(a - <p)rB at each mesh 
point. The next DO loop to statement 130 calculates coefficients e and f from equa- 
tion (All) of part I. 

At statement 140, IND is set to 1 to indicate the b^inning of the inner iteration pro- 
cedure. Each inner iteration then begins at statement 150. First, initial values are set. 
The munerical solution of the velocity-gradient equation and the mass-flow integration 
are done in the DO 200 loop. Trial values of WHUB are used in the velocity-gradient 
equation, until the solution obtained results in the input mass flow across the vertical 
mesh line. The first iteration will use the value calculated by the second statement after 
statement 60, Later iterations will use estimated values calculated by CXDNTIN. Once 
WHUB is specified, the numerical solution to the velocity-gradient equation is calculated 
by the Heun method (ref. 7). The equations used in the Heun method for this case are 


w: 


= Wj + (dW)j first estimate for 


= Wj + (dW)j ‘^2 second estimate for Wj^j 


> (5) 


wLi + wf*i 


average of two estimates for W. 


j+1 


where (dW)j (eq. (A7) of part 1) is evaluated at the mesh point from the hub with 
W = Wj and where (dW)j'^j is evaluated at the j+1 mesh point with W = W* At the 
same time that the solution of the velocity-gradient equation is being calculated, the 
mass-flow integration is also being calculated by trapezoidal integration of 


w = 



pW cos /3 cos((Y - <p)rB dt 


The inner iteration ends when the velocity-gradient solution gives the correct mass flow 
in this equation (or if the choking mass flow is less than the input mass flow). If the cor 
rect mass flow is not obtained in 100 iterations, an error message and debug informa- 
tion are printed, and the program goes on to the next vertical line. 

After the end of the inner iteration, at statement 250, the new stream -function 
values are compared with the previous outer iteration; if there is a chaiige of more than 
0. 01 percent, the inner iteration will be repeated (set REPEAT = . TRUE. ). Then the 
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PLOSS array is updated by calling LOSSTV, and arrays of TJ, p|, X, and (rV^)^ are all 
adjusted to new values. At this point there will be another outer iteration if the solution 
has not converged and there are less than 1000 total iterations. H there are over 1000 
total iterations for any vertical mesh line, the calculation for that mesh line is termi- 
nated. After the termination of the outer iteration, error messages are printed if there 
is choking or if a converged solution cannot be foupd. If INCR = 1, the program moves 
downstream to the next vertical line. At the appropriate point the procedure shifts to 
the downstream boundary and moves upstream until all vertical mesh lines have had a 
solution. This may involve redoing some vertical mesh lines, since the deviation re- 
gion could extend to a vertical mesh line that crossed the incidence region. 

After all mesh lines have been solved, a final choking message is printed if any 
vertical mesh line was choked. Control is then returned to the main program. 


Subroutine LINDV 


Subroutine LINDV recalculates (3 to allow for incidence and deviation in a manner 
similar to INDEV. LINDV is called only for the velocity-gradient solution, so that cor- 
rections are made to I3 instead of to dO/ds. Also a density correction is made to 
satisfy flow continuity at the blade leading and trailing edges (appendix F). Otherwise, 
the calculation is similar to that in INDEV . The first part of the subroutine does the 
incidence calculation only. The deviation calculation is done from the TINDV entry 
point. The final entry point is PDSTDV and is used only for printing previously calculated 
incidence and deviation angles. 


Functions LAMDAF, RVTHTA, TIPF, and RHOIPF 

These four routines are similar. Their purpose is to calculate one of the free- 
stream quantities as a function of stream function. Interpolation is by means of a spline- 
fit curve. All these subroutines have an alternate entry point for initialization. The 
initializing call results in a SPLINE call to calculate the coefficients for the spline fit. 

If the free-stream quantities are not given as input as a function of stream function (1. e., 
if LSFR = 1), the stream function is first estimated and later iterated to be adjusted to 
the correct stream -function value. These adjustments to the stream function (SFIN 

and SFOUT) are done in LAMDAF and RVTHTA. 

The input argument for all these subroutines is SF, which is the value of the stream 

function. 
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Subroutine CX)NTEN 


Subroutine CON TIN is a curve-fitting routine. On each call the calling programs 
must furnish a point on the curve, and then CONTIN will specify the next value of the 
abscissa. The calling program must then calculate the ordinate corresponding to this 
abscissa. After three calls, a parabola is fitted through the three points, and this is 
used to estimate the abscissa where the desired ordinate wiU be obtained. XEST is the 
value of the abscissa, and YCALC is the value of the ordinate on each call. XEST is 
chained by CONTIN to return the next value of the abscissa to the calling program. 

Figure 18 is a flow chart for CONTIN. Flow through the program is controlled by 
the value of IND. For each new case, IND is set to 1 by the callii^ program. Then 
CONTIN changes the value of IND on later calls. The significance of IND on the various 
calls is given in table IV. XDEL is the maximum increment for the chaise in XEST. On 
the first two calls, usually XEST is increased by XDEL each time. The exception is 
when YCALC is greater than YGIV and the subsonic solution is desired (JZ = 1). Then 
XEST is decreased by XDEL each time. 

On the third and later calls, there are always three points so that a parabola can be 
fitted through the three points. The parabolic coefficients are calculated by subroutine 
PABC. Anytime that XEST falls outside the range of previously calculated values, a 
shift is made until XEST is within the desired range. 

When the parabolic curve is close to a straight line, equation (G13) is used instead 
of the quadratic formula. The reason for this is explained in appendix G. 

Figure 19 illustrates the procedure for a typical case. On the first call to CONTIN, 
IND = 1 and YCALC corresponding to XEST is furnished by the calling program. Sup- 
pose that YCALC is less than YGIV and that the subsonic solution is requested. Then 
XEST becomes XORIG, and YCALC becomes Y(l) in figure 19. XORIG will be the origin 
for the curve fitting so that X(l) = 0 in this case. Next CONTIN increases XEST by 
XDEL. Then a return is made to the calling prc^ram to obtain the YCALC that corre- 
sponds to this value of XEST. On the second call to CONTIN, the new value of YCALC 
becomes Y(2) and XEST - XORIG becomes X(2), as indicated in figure 19. Subroutine 
CONTIN increases XEST by XDEL again, and a return is made to obtain YCALC for the 
third time. On the third call to CONTIN, the new value of YCALC becomes Y(3) and 
XEST - XORIG becomes X(3). This gives the three points shown in figure 19. The 
curve shown represents the true curve of YCALC against XEST. 

At this time, a check is made to determine whether the solution is within the range 
of the three points obtained. If not, additional points are calculated, and the three 
points are shifted as required. For example, in figure 19 a shift to the right is re- 
quired. In this case, point 2 would become point 1, point 3 would become point 2, and 
XEST would be increased by XDEL. This procedure is repeated until either the solution 
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TABLE IV. - SIGNIFICANCE OF IND IN VARIOUS 


CALLS TO CON TIN 


Value of 
IND 

Call 

Significance 

1 

First 

First call 

2 

Second 

JZ = 1, YCALC less than WTEL, 
or JZ = 2 

3 

Second 

JZ = 1 and YCALC greater than 
WTFL 

4 

Third 

Fourth or later 

IND = 2 on second call 
Right shift made so that XEST will 
be within range of stored pre- 
vious values 

5 

Third 

Fourth or later 

IND = 3 on second call 
Left shift made so that XEST will 
be within range of stored pre- 
vious values 

6 

Fourth or later 

Subsonic or supersonic solution 
predicted by quadratic fit and 
within range of solutions ob- 
tained 

7 

Fourth or later 

Choked flow predicted by quad- 
ratic fit and within range of 
solutions obtained 

10 

Never 

Choked solution found 

11 

Never 

100 calls made but no solution 
found 


y 



XORIG 


Figure 19. - Starting procedure for CONTIN, 




r-True curve 

I 



or the maximum point is within the range of the three points obtained. 

Since the curve represents mass flow as a function of the velocity at some point, 
the curve will be of the type shown. The maximum point on the curve is the choking 
mass flow. This type of curve is approximated well by a quadratic curve. After it has 
been determined that a solution is within the range of the three points (i. e. , 

Y(l) < YGIV < Y{3) for a subsonic solution), a parabola is fitted through the three 
points. This situation is illustrated in fi gu re 20. The next value of XEST is determined 
by the point where the parabolic curve intersects the YGIV line. Then the return is 
made to obtain YCALC. If YCALC is suffrciently close to YGIV, this will be the solu- 
tion. Otherwise, CONTIN is called again, XEST - XORIG becomes X(2), YCALC be- 
comes Y(2), and the procedure is repeated (as many as 100 times) until YCALC is suf- 
ficiently close to YGIV. 

The detailed operation of subroutine CONTIN is given in figure 18 and table IV. 

The calling statement for CONTIN is 

CALL CONTIN(XESt, YCALC, IND, JZ, YGIV, XDEL) 

The input variables for CONTIN are 

XEST last value of X used to calculate YCALC 

YCALC value of Y corresponding to XEST; calling program calculates YCALC 

IND controls sequence of calculation in CONTIN; calling program sets IND = 1 
to indicate a new solution 
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JZ determines whether subsonic or supersonic solution will be obtained: 

JZ = 1, subsonic solution 
JZ = 2, supersonic solution 

YGIV value of Y desired for solution 

XDEL maximum permissible change in XEST between iterations 
The output variables for CONTIN are 

XEST value of X to be used to calculate the next value for YCALC 

IND used to control next iteration in CXJNTIN and to indicate when a choked solution 
is found or when no solution can be found (table IV) 

The internal variables for CONTIN are 

ACB2 a(c - y)/b^ 

APA coefficient a of X^ in quadratic fit 

BPB coefficient b of X in quadratic fit 

CPC constant c in quadratic fit 

DISCR discriminant, ^b^ - 4ac 

NCALL number of times CONTIN has been called for a given case 
X array of three values of XEST - XORIG 

XORIG value of XEST on initial call, modified by right or left shifts 

XOSHFT amount of change of XORIG 
Y array of three values of YCALC 

Subroutine PABC 

Subroutine PABC calculates coefficients A, B, and C of the parabola y = Ax^ 

+ Bx + C passing through three given x, y points. 

Subroutine INRSCT 

Subroutine INRSCT calculates the coordinates of the point of intersection of two 
spline curves lying on a common plane that are known to cross within the range of the 
endpoints of each. In a general x-y coordinate system the first spline curve is sup- 
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plied to INRSCT as a function of x 


y = f(x) 


and the second as a function of y 


X = g(y) 


The solution technique consists of systematically constructing pairs of tangent 
slopes to the two curves and locatii^ the points of intersection of the two slopes. Each 
intersection point provides new coordinates from which new slopes and an intersection 
are calculated. These intersections quickly converge to the intersection point of the 
original curves. 

This technique is illustrated in figure 21. The original trial x-coordinate is always 
midway between the end points for f(x). This value is Xp from which yj^ and slope Sj 
are calculated by SPLINT. The calculated y^ is then used as input to SPLINT for g(y). 
From this SPLINT call, Xg and Sg are calculated, as shown in figure 21. The inter- 
section point of the two slopes is calculated from 


^c = *2 ^ 


Sj^2(x2 - Xj) 

1 - SjSg 


= Yl + 


1 - SjSg 



Figure Zl. - Procedure for calculating intersections in INRSCT. 
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Then becomes for the following iteration of this process. 

To check convergence of this process, the distance is calculated between each pair 
of intersection points x , y for adjacent iterations. When this distance becomes less 

i-r 

than the tolerance, an exit is made from INRSCT. Failing to meet the tolerance in 
20 iterations causes an error message to be printed. 

The calling statement for subroutine INRSCT is 

CALL INRSCT(XCURV1, YCURVl, Nl, XCURV2, YCURV2, N2, XCROSS, YCROSS) 

The input argmnents for INRSCT are 


XCURVl(Nl) 

X- coordinates for f(x) 


YCURVl(Nl) 

y- coordinates for y f(x) 


XCURV2(N2) 

x-coordinates for x = g(y) 


YCURV2(N2) 

y-coordinates for g(y) 


Nl 

number of spline points for 

f(x) 

N2 

number of spline points for 

g(y) 


The output arguments for INRSCT are 

XCROSS X- coordinate of intersection of two input curves 

YCROSS y-coordinate of intersection of two input curves 


Subroutine LININT 

Subroutine LININT is a general-purpose subroutine for two-dimensional interpola- 
tion. It is called many times by several subroutines. 

Subroutine LININT locates the point x^, y^ in a two-dimensional mesh with coor- 
dinates stored in the x- and y-arrays. Then the value of at x^ y^ is interpo- 
lated from the z-array values corresponding to the x- and y-arrays. Figure 22 is a 
flow chart for LININT. 

A tj?pical mesh is shown in figure 23. The mesh need not be orthogonal; but it must 
consist of two sets of lines, with one set running more or less horizontally (never ver- 
tically) and the other set running more or less vertically (never horizontally). The 
number of vertical lines is NX, and I denotes the number of the line (running from 1 at 
the left to NX at the right). The number of horizontal lines is NY, and J denotes the 
number of the line (running from 1 at the bottom to NY to the top). The lines between 
mesh points are assumed to be straight lines. 
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Figure 23. - Typical mesh for LININT. 


At the outset, some value of I and J must be specified. Any value within the pre- 
scribed limits is legal. On repeated calls to LININT, usually the value from the pre- 
ceding call is used. The values of I and J desired are the numbers shown at the bottom 
of figure 23. In this figure, 1 = 4 and J = 3. The procedure is to check to see on which 
side of each of the four boundary lines the point lies. The variables ABOVE and RIGHT 
are used to indicate the position. ABOVE = -1 indicates that the point is below the bot- 
tom line; ABOVE = 0, that the point is between the bottom and top lines; and 
ABOVE = 1, that the point is above the top line. Similarly, RIGHT = -1 indicates that 
the point is to the left of the left line; RIGHT = 0, that the point is between the left and 
right lines; and RIGHT = 1, that the point is to the right of the right line. Thus, when 
ABOVE = RIGHT = 0, we have the correct mesh region. If not, I and/or J are incre- 
mented by plus or minus 1 to move to the proper adjacent region. In this way, even- 
tuaUy the proper region will be found. If the point lies entirely outside the region de- 
fined, the nearest mesh region to the point x^, y^ will be found. In this case, extra- 
polation is required, and the variable EXTRAP is used to indicate the direction of 
extrapolation. EXTRAP is dimensioned 2. EXTRAP(l) corresponds to ABOVE, and 
EXTRAP(2) to RIGHT. 

After the proper mesh-point region is found, interpolation between the function 
values at the four corners is used. The method is described in appendix G. First, the 
quadratic coefficients are calculated by equation (G8) or (GIO). Then, the quadratic 
equation (G7) or (G9) is solved either by the quadratic formula or by the binomial ex- 
pansion, equation (G 13), as explained in a:ppendix G. 

The same coding is used to calculate both f^ and fy. After these values are ob- 
tained, equation (G14) is used to calculate the interpolated value of z^. 

The calling statement for LININT is 
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CALL LDSfINT(X, Y, Z, NX, NY, NDEVK, NDIMY, XO, YO, ZO, I, J) 


The input variables for LININT are 

X two-dimensional array of x- coordinates of mesh points 

Y two-dimensional array of y-coordinates of mesh points 

Z two-dimensional array of z -function values at mesh points 

NX number of mesh points in x-direction 

NY number of mesh points in y-direction 

NDIMX dimension of X-, Y-, and Z -arrays in x-direction 

NDIMY dimension of X-, Y-, and Z -arrays in y-direction 

XO X- coordinate of interpolation point 

YO y-coordinate of interpolation point 

I initial guess at number of vertical mesh line to the left of (XO, YO) 

J initial guess at number of horizontal mesh line below (XO, YO) 

The output variables for LININT are 

ZO interpolated value of Z at (XO, YO) 

I number of vertical mesh line to left of (XO, YO) 

J number of horizontal mesh line below (XO, YO) 

The internal variables for LININT are 

ABOVE integer, 1 indicates that (XO, YO) is above the current I, J region, 0 within, 
and -1 below 

ACB2 ac/b^ (eq. (G13)) 

CASE used to indicate whether FI or F2 is the proper solution 

DISCR discriminant, b^ - 4ac (eq. (G7) or (G9)) 

EXTRAP array to indicate extrapolation either horizontally or vertically 
FA -b/2a (eq. (G7) or (G9)) 

FB y'(b^ - 4ac)/2a (eq. (G7) or (G9)) 
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FX 

FY 

FI 

F2 

UEX 

IN 

JN 

QA 

QB 

QC 

RIGHT 


y 

^-b - y - 4ac)/ 2a 
^-b + ^b^ - 4ac]y2a 


indicator, first or second pass through coding to calculate or fy 
new value for I 
new value for J 
a (eq. (G8) or (GIO)) 

b (eq. (G8) or (GIO)) 

c (eq. (G8) or (GIO)) 

integer, 1 indicates that XO, YO is to the right of the current I, J region, 
0 within, and -1 left 


XOl 

*01 

(see ap] 

X02 

*02 

or 

*03 

X13 

*13 

or 

*12 

X21 

*21 

or 

*31 

X42 

*42 

or 

*43 

YOl 

yol 



Y02 

yo2 

or 

yo3 

Y13 

yi3 

or 

yi2 

Y21 

y2i 

or 

ysi 

Y42 

y42 

or 

y43 


Subroutine ROTATE 

Subroutine ROTATE is a general-purpose subroutine to rotate coordinates of one- 
or two-dimensional arrays of x- and y- coordinates. The rotated coordinates calcu- 
lated by ROTATE may be placed in the original input arrays, or they may be placed in 
new arrays. 

The calling statement for ROTATE is 

CALL ROTATE(ANGROT, X, Y, NX, NY, NDIMX, NDIMY, XROT, YROT) 
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The input variables for ROTATE are 


ANGROT angle of rotation, rad 

X one- or two-dimensional array of x-coordinates 

Y one- or two-dimensional array of y-coordinates 

NX number o! points to be rotated for a one-dimensional array; number of 

points denoted by first subscript for a two-dimensional array 

NY number of points denoted by second subscript for a two-dimensional array 

(NY = 1 for a one -dimensional array) 

NDIMX dimension for first subscript of X, Y, XROT, and YROT arrays 
NDIMY dimension for second subscript of X, Y, XROT, and YROT arrays 

The output variables for ROTATE are 

XROT one- or two-dimensional array of rotated x-coordinates 
YROT one- or two-dimensional array of rotated y-coordinates 


Subroutine SPLINE 


Subroutine SPLINE calculates the first and second derivatives of a cubic spline 
curve at the spline points. SPLINE solves a tridiagonal matrix given in reference 11 
to obtam the coefficients for the piecewise cubic polynomial function giving the spline- 
fit curve. The SPLINE routine is based on the end-point condition that the second 
derivative at either end point is one-half that of the next spline point. 

The calling statement for SPLINE is 


CALL SPLBNE(X, Y, N, SLOPE, EM) 
The input variables for SPLINE are 


X array of ordinates 

Y array of function values corresponding to X 
N number of X and Y values given 
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The output variables for SPLINE are 

SLOPE array of first derivatives 

EM array of second derivatives 


Subroutine SPLINT 

Subroutine SPLINT is used for interpolation, including interpolation of first and 
second derivatives. The interpolation is based on the cubic spline curve, with the same 
end conditions as SPLINE. The alternate entry point, SPLENT, allows for interpolation 
at a new set of points based on the spline curve of the previous SPLINT call. 

The calling statement for SPLINT is 

CALL SPLINT(X, Y, N, Z, MAX, YINT,DYDX,D2YDX2) 

The Input variables for SPLINT are 

X array of spline-point ordinates 

Y array of function values at spline points 

N number of X and Y values given 

Z array of ordinates at which interpolated values and derivatives are desired 

MAX number of Z values given 

The output variables for SPLINT are 

YINT array of interpolated function values 

\ 

DYDX array of interpolated derivatives 

D2YDX2 array of interpolated second derivatives 


Subroutine SLOPES 

Subroutine SLOPES calculates the first derivatives (slopes) based on a parabolic 
fit through three adjacent points. This subroutine is used when the input points may not 
be sufficiently smooth for the SPLINE subroutine. 

The calling statement for subroutine SLOPES is 

CALL SLOPES(X, Y, N, SLOPE) 
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The input arguments for SLOPES are 


X array of ordinates 

Y array of function values corresponding to X 

N number of X and Y values given 

The output variable for SLOPES is 

SLOPE array of first derivatives 


Subroutines SPLESL and SPINSL 

Subroutines SPLISL and SPINSL are the same as SPLINE and SPLINT, respectively, 
except that the end condition is a specified end-point slope. The input and output vari- 
ables are the same, but with two added input variables, YlP and YNP, which are the 
slopes at the first and last spline points. 


Plotting Subroutines 

There are four subroutines that do the plotting for MERIDL: INPLOT, MEPLOT, 
SLPLOT, and SVPLOT. In addition, another subroutine, PTBDRY, is called by 
MEPLOT to calculate hub and shroud, and leading- and trailing-edge boundaries. The 
plotting routines use the NASA Lewis in-house microfilm plotting package described 
in reference 12. These five routines are self-contained and can easily be removed from 
MERIDL without disturbing the rest of the calculations. On the other hand, if the user 
wants to obtain plots, he can code his own plotting routines by referring to the program 
listing which follows and consulting reference 12 to determine the functions of the vari- 
ous plottii^ calls. 


MAIN DICTIONARY 

The main dictionary for MERIDL is given in this section. It contains the definitions 
of variables for all the principal subroutines (from INPUT to RHOIPF, see table of 
contents) of the program. The remaining subroutines (CONTIN or SPINSL) are of a 
general-purpose nature and have their own local dictionaries included in their descrip- 
tions. 
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All important variables are included in the main dictionary. These include all 
CX)MMON variables, any dimensioned variables in the subroutines, and all important 
undimensioned variables. Only locally used undimensioned variables of minor impor- 
tance are not included. 

The names of all dimensioned variables are followed by the variables that determine 
what the dimensions should be. For example, the three-dimensional array A is dimen- 
sioned A(4, 100, 101) in the /VARCXDM/ COMMON but is listed as A(4, MM, MHTPl) in 
the dictionary. This enables the user to easily reduce the dimension of A (and reduce the 
prc^ram's variable storage) if he knows maximum limits to MM and MHTPl for his ap- 
plication. See the section STORAGE REQUIREMENTS for further explanation. 

The dictionary also indicates the COMMON blocks or the subroutines in which each 
variable is used. Variables in COMMON are used in many subroutines. The COMMON 
blocks are listed for each subroutine in table I. 


MAIN PI CTIONARY 


Variable name 

COMMON 

block 

Subroutine 

Description and comments 

A(4, MM, MHTPl) 

VARCOM 


Coefficients of finite- difference equa- 
tion (A7) for stream function, u 

AO 


COEF 

(eq. (A8)) 

AAA(MM or 
MHTPl, etc,) 


MESHO 

THIKOM 

NEWRHO 

OUTPUT 

TSONIN 

LAMDAF 

RVTHTA 

Dummy array used in SPLINE and 
SPLINT calls 

ALPHA(MM, MHTPl) 

VARCOM 


Q? at orthogonal mesh points, rad 

ALPHLE 


INDEV 

LINDV 

"le’ 

ALPHSP(MM) 


TSONIN 

oi at TSONIC input points 

ALPHTE 


INDEV 

LINDV 

«te> 

ALPSL(MM,NSL) 

SLCOM 


01 at points along streamlines where 
they cross vertical mesh lines, rad 
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Variable name 

COMMON 

block 

Subroutine 

De sc rip tion and comment s 

ALPST(NSL) 


OUTPUT 

Oi at points along station lines where 
they cross streamlines, rad 

ALVERT(MHTPl) 


OUTPUT 

Temporary storage for values of a 
from ALPHA array on vertical 
mesh lines, rad 

ANG(NPPP) 


INPUT 

Angles from meridional plane of 
blade- section mean camber lines at 
blade- section input points, rad 

ANGR(NPPC,NBLPC) 


THETOM 

Angles with respect to radius of hub- 
shroud lines of alternate mesh 
(fig. 28), rad 

ANGROT 

INPUTT 


Input angle of rotation, deg 

ANGTl(NBLPL) 


THETOM 

Values from ANGZ array along 
constant- percent-chord line, 
rad 

ANGT2(NBLPC) 


THETOM 

Values for ANGZ array along 
con stant- percent- chord line, 
rad 

ANGZ(NPPC, NBLPC) 


THETOM 

An^es with respect to z-axis of input 
blade sections (fig. 28), rad 

AR 

INPUTT 


Input gas constant, R, j/(kg)(K) 

ARTEM 


TSONIN 

Temporary AR, j/ (k^ (K) 

ATVEL(MHTP1) 


TVELCY 

Coefficients, a, of velocity-gradient 
equation ((A7), part I) at mesh 
points along vertical mesh lines 

BBB(MM or 


MESHO 

Dummy array used in SPLINE and 

MHTPl, etc.) 


THIKOM 

OUTPUT 

TSONIN 

LAMDAF 

RVTHTA 

SPLINT calls 

BEABST(NSL) 


OUTPUT 

^abs poii'ts where station lines 

cross streamlines, deg 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

BESP(MM) 


TSONIN 

Input for TSONIC (ref. 3), m 

BETA(MM, MHTPl) 

VARCOM 


p at orthogonal mesh points, rad 

BETABF 


INDEV 

LINDV 

^bf blade, rad 

BETAFS 


INDEV 

LINDV 

^fs blade, rad 

BETAIJ 


OUTPUT 

INDEV 

P at orthogonal mesh point, rad 

BETALE(NBLPL) 

INPUTT 


Input blade angles at leading edge, 
deg 

BETATE(NBLPL) 

INPUTT 


Input blade angles at trailing edge, 
deg 

BETH 


TSONIN 

Input for TSONIC (ref. 3), deg 

BETI2 


TSONIN 

Input for TSONIC (ref. 3), deg 

BETOl 


TSONIN 

Input for TSONIC (ref. 3), deg 

BET02 


TSONIN 

Input for TSONIC (ref. 3), deg 

BETSL(MM, NSL) 

SLCOM 


p at points along streamlines where 
they cross vertical mesh lines, ra( 

BETST(NSL) 


OUTPUT 

P at points along station lines where 
they cross streamlines, rad 

BFACTR 


TSONIN 

Multiplying factor for BESP and 
ZMSFL 

BLDCRD 


INDEV 

LINDV 

True blade chord along a horizontal 
mesh line, m 

BLDEV(MHTPl) 


LINDV 

Deviation angle, corrected for block- 
age, where a horizontal mesh line 
intersects trailing edge, 

te 

BLDEV 


INDEV 

Deviation angle, corrected for block- 
age, where a horizontal mesh line 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 




intersects trailing edge, 
te 

BLINC(MHTPl) 


LINDV 

Incidence angle, corrected for block- 
age, where a horizontal mesh line 
intersects leading edge, 

le 

BLINC 


WDEV 

Incidence angle, corrected for block- 
age, where a horizontal mesh line 
intersects leading edge, 

le 

BLNK 


OUTPUT 

Blank word used in some plot titles 

BLOCK (NPPP) 


P RE CAL 

Fractional blockage along input blade 
sections 

BTBFLE(MHTP1) 

INDCOM 


^bf ^ horizontal mesh line 

intersects leading edge, rad 

BTBFTE(MHTPl) 

INDCOM 


^bf ^ horizontal mesh line 

intersects trailing edge, rad 

BTBLLE(MHTP1) 


LINDV 

where a horizontal mesh line 
intersects leading edge, rad 

BTBLTE(MHTP1) 


LINDV 

where a horizontal mesh line 
intersects trailing edge, rad 

BTFSEX(MHTP1) 


OUTPUT 

/3fg extrapolated to leading or trailing 
edge of blade, rad 

BTH(MM,MHTP1) 

CALCON 


B at orthogonal mesh points, rad 

BTHLE(MHTP1) 

INDCOM 


Bie, rad 

BTHSL 


TSONIN 

B along a streamline, rad 

BTHTE(MHTP1) 

INDCOM 


Bte’ 

BTVEL(MHTP1) 


TVELCY 

Coefficients, b, of velocity- gradient 
equation ((A7), parti) at mesh 
points along vertical mesh lines 

Cl 


COEF 

(eq. (A8)) 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

C2 


COEF 

Cg (eq. (A8)) 

CAMP(MM, MHTPl) 

VARCOM 


COS (a - <p) at orthogonal mesh points 

CBETA 


TVELCY 

cos P 

CHANGE 


SOR 

Change in value of stream function at 
a mesh point during an over- 
relaxation iteration 

CHFL 


TVELCY 

Choking mass flow for a vertical 
orthogonal mesh line, kg / sec 

CHFRMS 


TVELCY 

Ratio of minimum choking mass flow 
to input mass flow 

CHLIM 


TVELCY 

Minimum choking mass flow per 
passage, kg/ sec 

CHORD 


TSONIN 

Length of blade section along stream- 
line (m- direction) (input to TSONIC, 
ref. 3) , m 

COSAB 


THETOM 

Cosine of ANGZ + ANGR 

CP 

CAL CON 


Cp, J/(kg)(K) 

CPHI(MM, MHTPl) 

CAL CON 


cos <p at orthogonal mesh points 

CP TIP (MHTPl) 


TVELCY 

2c T! along vertical mesh lines, 
(N)(m)/kg 

CPTIP 


LINDV 

2CpT|, (N)(m)/kg 

CTVEL(MHTPl) 


TVELCY 

Coefficients, c, of velocity- gradient 
equation ((A7), part I) at mesh 
points along vertical mesh lines 

CURV(MM, MHTPl) 

VARCOM 


l/r^ at orthogonal mesh points, l/m 

CURV1(MM) 


TSONIN 

Curvature of upper blade surface at 
TSONIC input points, l/m 

CURV2(MM) 


TSONIN 

Curvature of lower blade surface at 
TSONIC input points, l/m 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

CURVSL(MM, NSL) 

SLCOM 


l/r^ at points along streamlines 
where they cross vertical orthogo- 
nal mesh lines, 1/m 

CURVST(NSL) 


OUTPUT 

1/ r^ at points along station lines 
where they cross streamlines, 1/m 

D1 


COEF 

(eq, (A8)) 

D2 


COEF 

dg (eq. (A8)) 

D2BDM2(MM) 


TSONIN 

d^B/dm^, 1/m 

D2TDM1(MM) 


TSONIN 

Second derivative of upper blade sur- 
face at TSONIC input points, 
rad/m^ 

D2TDM2(MM) 


TSONIN 

Second derivative of lower blade sur- 
face at TSONIC input points, 
rad/m^ 

D2YDX2(NPPP or 
MHTPl) 


PRECAL 

Second derivative of 6 along input 

o 

blade sections, rad/m 

D2YDX2(NPPC or 
NBLPC) 


THETOM 

Dummy second derivative in SPLINT 
calls 

DALDS(MM) 


OUTPUT 

9o:/0s at mesh points along horizontal 
mesh lines, rad/m 

DALDT(MM, MHTPl) 


OUTPUT 

doi/dt at orthogonal mesh points, 
rad/m 

DALVER(MHTP1) 


OUTPUT 

doi/dt at mesh points along vertical 
mesh lines, rad/m 

DAMP 


TSONIN 

Damping factor on iteration for 
leading- or trailing- edge radii 
(appendix E) 

DBDM(MM) 


TSONIN 

dB/dm 

DBL 


TSONIN 

One-half of tangential blade thickness 
(In rad) at intersection of a stream- 
line with blade leading or trailing 
edge 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

DBTH 


THIKOM 

Tangential blade thickness at or- 
thogonal mesh point, rad 

DCHANG 


COEF 

Maximum change in estimated values 
of 9(rV^/at at a mesh point be- 
tween any two outer iterations, 
m/ sec 

DEGRAD 


OUTPUT 

TSONIN 

INDEV 

LINDV 

Conversion constant from radians to 
degrees 

DELCH 


OUTPUT 

1 percent of average meridional chord 
length of blade, m 

DELM 


TSONIN 

Increment of meridional distance, m 

DELMAX 


TVELCY 

Maximum increment for at 

each Iteration to satisfy continuity, 
m/sec 

DELMSP 


TSONIN 

Minimum distance of blade surface 
points from leading or trailing edge 
(appendix E), m 

DELR 


MESHO 

THETOM 

OUTPUT 

Increment in r- coordinate, m 

DELRHO(MM, MHTPl) 

VARCOM 


Difference In density, between suction 
and pressure surfaces, at orthogo- 
nal mesh points, kg^m 

DELT 


MESHO 

Tangential blade thickness, m 

DELTH 


TSONIN 

Shift in S origin from MERIDL to 
TSONIC, rad 

DELZ 


MESHO 

THETOM 

OUTPUT 

Increment in z- coordinate, m 

DFDM(MM, MHTPl) 

VARCOM 


-B COS ^jd(rVg)/dn^ at orthogonal 
mesh points (eq. (4)), m/sec 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

DFDS(MM) 


BLDVEL 

3(rV^)/9s at mesh points along hori- 
zontal mesh lines, m/sec 

DFDT(MM, MHTPl) 


B LEVEL 

8(rV^)/0t at orthogonal mesh points, 
m/sec 

DFVERT(MHTP1) 


BLDVEL 

0 (rV^)/0t at mesh points along ver- 
tical mesh lines, m/sec 

DIP(NBLPL) 


PRECAL 

Distance up leading or trailing edge 
of blade, m 

DISEOM (MHTPl) 


THIKOM 

Distance up leading or trailing edge 
of blade, m 

DIST(NPPP) 


INPUT 

Distances on meridional plane along 
lines connecting input blade- section 
points (ZBL, RBL), m 

DIST(NBLPL) 


THIKOM 

Distances on meridional plane along 
lines connecting input blade- section 
points (ZBL, RBL), m 

DISTLE 


INDEV 

LINDV 

Distance along horizontal mesh line 
from leading edge of blade for 
which a blade shape correction is 
made for incidence, m 

DISTTE 


INDEV 

LINDV 

Distance along horizontal mesh line 
from trailing edge of blade for 
which a blade shape correction is 
made for deviation, m 

DLAM 


TVELCY 

Change in rV^ between points on 
^ 2 

vertical mesh lines, m / sec 

DLDU (MM, MHTPl) 

VARCOM 


Gradients of rV^ with respect to 
stream function, d(rV^)/du, at 
orthogonal mesh points, m / sec 
(This array is only defined and used 
in regions outside of blade row.) 

DMAX 


COEF 

Maximum calculated value of 
0(rV^)/9t at any mesh point, m/sec 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

DMIN 


COEF 

Minimum calculated value of 

9 (rV^)/9t at any mesh point, m/ se< 

DNEW 

INPUTT 


Input damping factor on calculation of 
9(rV^)/9t witiiin blade row from 
outer iteration to outer iteration 

DOM(MHTPl) 


P RE CAL 

Distance up leading or trailing edge 
of blade, m 

DPDT(MHTP1) 


NEWRHO 

9p”/9t at mesh points along vertical 

o 

mesh lines, N/m 

DPREL 


TVELCY 

Change in p^^ between points on ver- 

n 

tic al mesh lines, N/m 

DRHOSL 


TSONIN 

Difference in density between suction 
and pressure surfaces along a 

o 

streamline, kg/m 

DTANl 


TSONIN 

dO/ dm at upper blade surface 

leading- or trailing-edge tangency 
point, rad/m 

DTAN2 


TSONIN 

dO/ dm at lower blade surface 

leading- or trailing-edge tangency 
point, rad/m 

DTDM1(MM) 


TSONIN 

do/ dm on upper blade surface at 
TSONIC input points, rad/m 

DTDM2(MM) 


TSONIN 

do/ dm on lower blade surface at 
TSONIC input points, rad/m 

DTDRLE 


INDEV 

LINDV 

(90/9r)j^, rad/m 

DTDROM 


THETOM 

dO/dr on orthogonal mesh, rad/m 

DTDRTE 


INDEV 

LINDV 

(dO/dv)^^, rad/m 

DTDS(NPPP) 


INPUT 

9fl/9s, rad/m 

DTDT(MHTP1) 


NEWRHO 

dT*/dt along vertical mesh lines, 
K/m 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

DTDZLE 


INDEV 

LINDV 

(80/az)j^, rad/m 

DTDZOM 


THETOM 

dO/dz on orthogonal mesh, rad/m 

DTDZTE 


INDEV, 

LINDV 

(B0/3z)^^, rad/m 

DTHDR(NPPC, NBLPC) 

INDCOM 


dB/br on alternate blade mesh 
(fig. 27), rad/m 

DTHDS{MM, MHTPl) 

CAL CON 


dB/ds at orthogonal mesh points, 
rad/m 

DTHDSL 


INPUT 

PRECAL 

THETOM 

d0/ds at blade leading edge, rad/m 

DTHDSP(NPPC, NBLPC) 


THETOM 

bB/bs^ on alternate blade mesh 
(fig, 27), rad/m 

DTHDST 


INPUT 

PRECAL 

THETOM 

dB/ds at blade trailing edge, rad/m 

DTHDT(MM, MHTPl) 

CAL CON 


bB/bt at orthogonal mesh points, 
rad/m 

DTHDTP(NPPC, NBLPC) 


THETOM 

bB/bV on alternate blade mesh 
(fig. 27), rad/m 

DTHDZ(NPPC, NBLPQ 

INDCOM 


bB/bz on alternate blade mesh 
(fig. 27), rad/m 

DTHEOM (MHTPl) 


THIKOM 

Blade thickness along leading or 
trailing edge, rad 

DTIP 


TVELCY 

Change in T| between points on 
vertical mesh lines, K 

DTPP 


TVELCY 

Change in T^^ between points on 
vertical mesh lines, K 

DTSTl(NBLPL) 


THETOM 

dB/ ds’ at input blade planes along 
5-percent- chord lines, rad/m 
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Variable name 

COMMON Subroutine 

block 

Description and comments 

DTST2(NBLPC) 

THETOM 

t 

d9/ds’ at alternate mesh points along 
5-percenl>- chord lines, rad/m 

DTVEL(MHTPl) 

TVELCY 

Coefficients, d, of velocity- gradient 
equation ((A7), part I) at mesh 
points along vertical mesh lines 

DUDS(MM) 

NEWRHO 

9u/0s along horizontal mesh lines, 
l/m 

DUDT(MHTP1) 

NEWRHO 

Bu/di at mesh points along vertical 
mesh lines, 1/m 

DVTEMP 

COEF 

Updated estimate of d(rV^)/dt at a 
mesh point, m/ sec 

DVTHDT(MM, MliTPl) 

COEF 

d(rV^)/dt at orthogonal mesh points, 
m/sec 

DWMDM(MM, MHTP 1) 

TVELCY 

dW^/ dm at orthogonal mesh points, 
1/ sec 

DWMDS(MM) 

TVELCY 

9Wm/9s along horizontal mesh lines, 
l/sec 

DWMDT(MM, MHTPl) 

TVELCY 

9W^/9t at orthogonal mesh points, 
l/ sec 

DWMVER(MHTPl) 

TVELCY 

3W^/8t along vertical mesh lines, 
1/ sec 

DWTDM(MM, MHTPl) 

TVELCY 

dW^ dm at orthogonal mesh points, 
l/sec 

DWTDS(MM) 

TVELCY 

aw^/3s along horizontal mesh lines, 
l/sec 

DWTDT(MM, MHTPl) 

TVELCY 

dW^dt at orthogonal mesh points, 
1/ sec 

DWTVER(MHTP1) 

TVELCY 

9W^3t at mesh points along vertical 
mesh lines, 1/ sec 

DYDX (MHTPl 
or NPPP, etc.) 

INPUT 

PRECAL 

THETOM 

Temporary storage for derivatives of 
SPLINE or SPLINT calls 
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Variable name 


COMMON 

block 


Subroutine 


Description and comments 


EM(NIN or NOUT) 

ERR 

ERROR 

ETVEL(MHTP1) 

EXFRAC 

EXP ON 
EXTRAP 

FCHANG 

FLFR(NSL) 

FMAX 

FMIN 

FNEW 


TIPF Second derivatives of spline- fit 

RHOIPF curves 

LAMDAF 

RVTHTA 

NEWRHO Relative change in W at a mesh point 

SOR Maximum absolute value of change in 

u at any point for an overrelaxa- 
tion iteration 

TVELCy Coefficients, e, of velocity- gradient 

equation ((A7), part I) at mesh 
points along vertical mesh lines 

OUTPUT Extrapolation fraction at leading and 

LINDV trailing edges 

CALCON l/(y - 1) 

INDEV Distance along horizontal mesh line 

from blade leading or trailing edge 
to first mesh point outside of 
blade, m 

BLDVEL Maximum value of change in F^ at 

any mesh point between any two 
outer iterations 

INPUTT Input values of stream function desig- 

nating streamlines along which out- 
put is to be printed 

BLDVEL Maximum new predicted value of F^ 

at any mesh point during an outer 
iteration 

BLDVEL Minimum new predicted value of F^ 

at any mesh point during an outer 
iteration 

INPUTT Input damping factor on calculation of 

Fj. from outer iteration to outer 
iteration 
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Variable name 
FST(MM,MHTP1) 

FT(MM,MHTP1) 

FTT 

FTVEL(MHTP1) 

FVERT(MHTPl) 

GAM 

HI 

H2 

H3 

H4 

lARG 

ICARDS 

ICOUNT 

IDEBUG 

lEND 


COMMON 

block 

Subroutine 

Description and comments 


BLDVEL 

rV^ at orthogonal mesh points, 
2/ 

m /sec 

VARCOM 


F^ at orthogonal mesh points 
(eq, (A4)), m/sec^ 

- 

BLDVEL 

Predicted value of F^ at a mesh 
point 


TVELCY 

Coefficients, f, of velocity- gradient 
equation ((A7), part I) at mesh 
points along vertical mesh lines 


BLDVEL 

Temporary storage for values of rVn 

tf 

from FST array on vertical mesh 
lines, m^/sec 

INPUTT 


Input, y 


COEF 

h^ (eq. (A8), fig. 24) 


COEF 

^2 (eq. (A8), fig. 24) 


COEF 

h^ (eq. (A8), fig. 24) 


COEF 

h^ (eq. (A8), fig. 24) 


LINDV 

Integer indicator for mesh line where 
deviation correction begins 


TSONIN 

Integer control on writing of TSONIC 
card image input to a file 


SOR 

NEWRHO 

TSONIN 

TVELCY 

LINDV 

Integer internal iteration counter 

INPUTT 


Integer input indicating multiple of 
outer iterations at which debug out- 
put is printed 

Blank 


Integer indicator of stage of solution 
to which program has proceeded: 
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Variable name 


COMMON 

block 


Subroutine 


Description and comments 


ILE(MHTPl) 

ILOS 

nJS(NSL) 

IMAX 

IMESH 

INCH 
IND 
IP LOT 


lEND = -1, prior to convergence of 
subsonic solution 

lEND = 0, between convergence of 
subsonic solution and beginning 
of transonic solution 
lEND = 1, during first transonic 
solution with all velocities 
smaller than choking- mass- flow 
solution 

IEND = 2, during second transonic 
solution with all velocities 
greater than choking- mass- flow 
solution 

CALCON Vertical mesh line numbers of first 

mesh point inside blade region at 
leading edge 


LOSSOM 


SLCOM 


TVELCY 


INPUTT 


TVELCY 

TVELCY 


INPUTT 


Integer control on print Indicating 
negative loss 

Vertical mesh line number of first 
intersection of a streamline with a 
vertical mesh line inside blade 
region at leading edge 

Integer indicator of final vertical 
mesh line where an incidence cor- 
rection is made 

Integer input indicating the multiple 
of outer iterations at which major 
output is printed for orthogonal 
mesh 

Integer increment for loop on vertical 
mesh lines 

Integer that indicates solution proce- 
dure in CONTIN 

Integer input indicating multiple of 
outer iterations at which major 
output is plotted 
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Variable name 


COMMON 

block 


Subixjutine 


Description and comments 


IPRNT 

IREVRS 

ISLINE 

ISTATL 

ISUPER 

ITE(MHTPl) 

ITEMIN 

ITEMP 

ITER 

ITS(NSL) 

ITSON 

JARG 


INPUTT 


INPUTT 


INPUTT 


CALCON 


Blank 


INDEV Integer indicator controlling output 

TVELCY Integer Indicator at end of forward 

iteration 

Integer input indicating multiple of 
outer iterations at which major 
output is printed along streamlines 

Integer input indicating multiple of 
outer iterations at which major 
output is printed along station lines 

Integer input indicating whether only 
subsonic, or both subsonic and 
supersonic, solutions of velocity- 
gradient equation are to be calcu- 
lated 


TVELCY 


Vertical mesh line numbers of last 
mesh point inside blade region at 
trailing edge 

Integer indicating smallest value of 
lARG 


TVELCY Temporary storage for lARG 

Outer iteration counter, incremented 
by 1 at beginning of each outer 
iteration 


SLCOM 


INPUTT 


LINDV 


Vertical mesh line number of last 
intersection of a streamline with a 
vertical mesh line Inside blade 
region at trailing edge 

Integer input Indicating multiple of 
outer iterations at which information 
is printed as input for TSONIC pro- 
gram (ref. 3) 

Integer indicator for mesh line where 
incidence correction ends 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

JZ 


TVELCY 

Integer used to indicate to CONTIN 
that subsonic (J2 = 1) or supersonic 
(JZ * 2) solution is desired 

K(MM, MHTPl) 
(real variable) 

VARCOM 


Lq (eq. (A9)) at orthogonal mesh 
points 

KNEW 

(real variable) 


COEF 

Updated value of (eq. (A9)) at a 

mesh point 

LAMBDA(MHTP1) 
(real variable) 


TVELCY 

\ for mesh points along vertical mesh 
lines, m^/ sec 

LAMBDA 
(real variable) 


NEWRHO 

OUTPUT 

mV sec 

LAMB DO (MHTPl) 
(real variable) 


TVELCY 

(rV^) for mesh points along vertical 
mesh lines, m /sec 

LAMB DO 
(real variable) 


NEWRHO 

(rVJ , mV sec 
o 

LAMIN(NIN) 
(real variable) 

INPUTT 


Input values of X at points along line 
from hub to shroud on which up- 
stream flow conditions are given, 

2 / 

m /sec 

LAMOUT(NOUT) 
(real variable) 

INPUTT 


Input values of (rV^) at points along 

line from hub to shroud on which 

downstream flow conditions are 
2 

given, m /sec 

LAMVT 

INPUTT 


Input integer (0 or 1) indicating 
whether upstream and downstream 
whirl (0) or tangential velocity (1) 
is given as input 

LBLAD 

INPUTT 


Input integer (0, 1, or 2) indicating 
type of blade geometry input 

LETEAN 

INPUTT 


Input integer (0 or 1) indicating 
whether leading- and trailing-edge 
blade angles are given 
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Variable name 


COMMON 

block 


Subroutine 


LINC 


LIPS 

LMAX 

(real variable) 
LMIN 

(real variable) 

LOSOUT(NOUT) 
(real variable) 


LOSS 

LROT 

LRVB 

LSFR 


LTPL 


LWCR 

MARK 


MAXFLO 
(real variable) 


Description and comments 


TVELCY 

LINDV 

TSONIN 

SOR 

SOR 


INPUTT 


INPUTT 


TSONIN 


INPUTT 


TSONIN 


INPUTT 


TSONIN 

OUTPUT 


TVELCY 


Integer indicating completion of 
transonic incidence correction at 
leading edge 

Input for TSONIC (ref. 3) 

Maximum value of RATIO over all 
mesh points 

Minimum value of RATIO over all 
mesh points 

Input fraction of absolute total pres- 
sure loss, at points along line from 
hub to shroud on which downstream 
flow conditions are given 

Input for TSONIC (ref. 3) 

Input integer (0 or 1) indicating if ro- 
ration of coordinate system should 
be used 

Input for TSONIC (ref. 3) 

Input integer (0 or 1) indicating 
whether upstream and downstream 
flow conditions are input as a func- 
tion of stream function (0) or 
radius (1) 

Input integer (0 or 1) indicating 
whether downstream total pressure 
(0) or fractional loss of stagnation 
pressure (1) is given in input 

Input for TSONIC (ref. 3) 

Integers between 1 and 4 indicating 
whether output station lines are ouU 
side blade, within blade, or on 
leading or trailing edge 

Maximum mass flow for which a so- 
lution can be obtained for a vertical 
mesh line, kg/ sec 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

MBBI 


TSONIN 

Input for TSONIC (ref. 3) 

MBI 

INPUTT 


Input number of vertical mesh lines 
from left boundary of orthogonal 
mesh (ZOMIN) to first point of 
mesh- size change (ZOMBI) 

MBITS 


TSONIN 

Input for TSONIC (ref. 3) 

MBO 

INPUTT 


Input total number of vertical mesh 
lines from left boundary of orthogo- 
nal mesh (ZOMIN) to point of second 
mesh- size change (ZOMBO) 

MBOTS 


TSONIN 

Input for TSONIC (ref. 3) 

MHT 

INPUTT 


Input total number of horizontal mesh 
spaces from hub to shroud of or- 
thogonal mesh; maximum of 100 

MHTPl 

CAL CON 


MHT + 1 

MINFLO 
(real variable) 


TVELCY 

Minimum mass flow for which a solu- 
tion can be obtained for a vertical 
m^sh line, kg/sec 

MM 

INPUTT 


Input total number of vertical mesh 
lines from left to rig^t boundaries 
of orthogonal mesh (ZOMIN to 
ZOMOUT), maximum of 100 

MMMl 

CALCON 


MM - 1 

MMTS 


TSONIN 

Input for TSONIC (ref. 3) 

MSFL 

(real variable) 

INPUTT 


Input total mass flow through entire 
circumferential annulus of machine, 
kg/ sec 

MSL(MM. NSL) 
(real variable) 

SLCOM 


m- coordinates of points along stream- 
lines where they cross vertical 
mesh lines, m (Origin of 
m- coordinate is upstream boundary 
of orthogonal mesh.) 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

MST(NSL) 
(real variable) 


OUTPUT 

m- coordinates of points where station 
lines cross streamlines, m (Origin 
of m- coordinates is upstream 
boundaiy of orthogonal mesh.) 

NADD 


TVELCY 

Integer number of times WHUB is in- 
creased for restart of iteration 
procedure 

NBL 

INPUTT 


Input number of blades in blade row 

NBLPC 

INDCOM 


Integer number of blade planes in 
alternate mesh 

NBLPL 

INPUTT 


Number of input blade planes or blade 
sections on which data (ZBL, RBL, 
THBL, TNBL, etc.) are given to 
describe mean flow surface and 
blade thickness, maximum of 50 

NBLPTS 


TSONIN 

Number of spline points on suction or 
pressure surface of a blade section 

NCHOK 


OUTPUT 

Integer number of vertical orthogonal 
mesh lines that are choked in the 
transonic solution 

NCOUNT 


TVELCY 

Total number of iterations or attempts 
at satisfying velocity- gradient equa- 
tion 

NHUB 

INPUTT 


Number of input data points in ZHUB 
and RHUB arrays, maximum of 50 

NIN 

mPUTT 


Number of input data points in up- 
stream arrays of flow properties 
(SPIN, RADIN, TIP, PRIP, LAMIN, 
and VTHIN), maximum of 50 


NLOSS INPUTT Number of input data points in 

PERCRD and PERLOS arrays, 
maximum of 50 


NMAX MESHO Maximum of either NHUB or NTIP 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

NOSTAT 

INPUTT 


Input number of hub- shroud stations 
(located by coordinates in ZHST, 
RHST, ZTST, and RTST) at which 
output is desired, maximum of 50 

NOUT 

INPUTT 


Number of input data points in down- 
stream arrays of flow properties 
(SFOUT, RADOUT, PROP, 
LOSOUT, LAMOUT, and VTHOUT), 
maximum of 50 

NPPC 

INDCOM 


Integer number of vertical percent- 
chord lines in alternate mesh 

NPPP 

INPUTT 


Number of input data points per blade 
section or blade plane In ZBL, 

RBL, etc., arrays; maximum of 50 

NREAD 

Blank 


Integer number of input read file 

NREP 


TVELCY 

Integer number of repeats on outer 
iteration loop 

NRES 


TVELCY 

Integer number of restarts of inner 
iteration for a given vertical or- 
thogonal mesh line 

NRSP 


TSONIN 

Input for TSONIC (ref. 3) 

NSL 

INPUTT 


Input number of streamlines from hub 
to shroud (designated by values in 
FLFR) at which output is desired, 
maximum of 50 

NSLTS 


TSONIN 

Input for TSONIC (ref. 3) 

NSPLl 


TSONIN 

Input for TSONIC (ref. 3) 

NSPL2 


TSONIN 

Input for TSONIC (ref. 3) 

NSUB 


TVELCY 

Integer number of times WHUB is de- 
creased for restart of iteration 
procedure 

NTIP 

INPUTT 


Number of input data points in ZTIP 
and RTIP arrays, maximum of 50 
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Variable name COMMON Subroutine Description and comments 

block 


NWRIT, NWRTl, 
NWRT2,NWRT3, 
NWRT4,NWRT5, 
NWRT6, NWRT7 

Blank 


Integer numbers of output write files* 
Several variables are used so that 
output can be stored in more than 
one file. 

OMEGA 

INPUTT 


Input rotational i^eed, co , rad/ sec 

OMTEM 


TSONIN 

Input for T^NIC (ref, 3), rad/ sec 

ORE 


SOR 

Overrelaxation factor 

ORFMAX 


SOR 

Current estimate for maximum value 
of ORF calculated by using LMAX 

ORFMIN 


SOR 

Current estimate for minimum value 
of ORF calculated by using LMIN 

PC 


LOSSOM 

Fraction of chord from leading edge 

PERCRD(NLOSS) 

INPUTT 


Input fraction of chord for PERLOS 
input 

PERLOS(NLOSS) 

INPUTT 


Input fraction of loss 

PERLS 


LOSSOM 

Fraction of loss at an orthogonal 
mesh point 

PHI 


MESH 

OUTPUT 

q>, deg 

PITCH 

CAL CON 


27 t/NBL, rad 

PLOSS(MM,MHTPl) 

CAL CON 


Fractional loss of relative total pres- 
sure at orthogonal mesh points 

PLOSSL(MM) 


TSONIN 

Fractional loss of relative total pres- 
sure along a streamline 

PLOST(NSL) 


OUTPUT 

PLOSS at a point on a station line 

PLOSTE 


LINDV 

Fractional loss of relative total pres- 
sure at blade trailing edge 

PPPST(NSL) 


OUTPUT 

2 

p” along a station line, N/m 

PPST(NSL) 


OUTPUT 

2 

p’ along a station line, N/m 


82 



Variable name 

COMMON 

block 

Subroutine 

Description and comments 

PREL(MHTP1) 


NEWRHO 

p” at mesh points along vertical mesh 
2 

lines, N/m 

PREL 


TVELCY 

p", N/m^ 

PRELN 


TVELCY 

New p”, N/m^ 

PRINP 


LOSSOM 

p!, N/m^ 

PRIP(NIN) 

INPUTT 


Input, p!, at points along line from 

hub to shroud on which upstream 

2 

flow conditions are given, N/m 

PROP(NOUT) 

INPUTT 


Input, p^, at points along line from 

hub to shroud on which downstream 

2 

flow conditions are given, N/m 

PST(NSL) 


OUTPUT 

2 

p along a station line, N/m 

Rl(MM) 


MESHO 

r- coordinate of intersection of 
line (T), fig, 9, with upper hori- 
zontal mesh line, m 

RADIN(NIN) 

INPUTT 


Input r- coordinates of points along 
line from hub to shroud on which 
upstream flow conditions are 
given, m 

RADLE 


TSONIN 

r at leading edge, m 

RADOUT(NOUT) 

INPUTT 


Input r- coordinates of points along 
line from hub to shroud on which 
downstream flow conditions are 
given, m 

RADSPl(MM) 


TSONIN 

r-coordinates of upper-blade- surface 
spline points, m 

RADSP2(MM) 


TSONIN 

r-coordinates of lower-blade- surface 
spline points, m 

RADTE 


TSONIN 

r at trailing edge, m 

RATIO 


SOR 

^m+l/^m ^ equations (B2) 

and (B3) of reference 9 

RBL(NPPP,NBLPL) 

INPUTT 


Input array of r-coordinates, corre- 


83 



Variable name 


COMMON 

block 


Subroutine 


Description and comments 


RBLH 

RBLROT(NPPP, NBLPL) 
RCARB(MHTP1) 

REDFAC 

REDTEM 

RELER 

RELERA 

REPEAT 

REVERS 

RFAC2 

RHIN 

RHO(MM,MHTPl) 
RHOAV(MM, MHTPl) 


ROTATN 


INPUTT 


INPUTT 


VARCOM 

VARCOM 


spending to ZBL, of points de^ 
scribing mean blade surface, m 

THIKOM Rotated RBL points at leading and 

trailing edges, m 

Rotated RBL array, m 

TVELCY cos(Q^ - (p)r^ along a vertical mesh 

line, m 


TSONIN 

NEWRHO 

NEWRHO 

TVELCY 

OUTPUT 

LOSSOM 


Input factor used to reduce mass flow 
(MSFL) in order to ensure subsonic 
flow throu^out flow passage 

Input for TSONIC (ref. 3) 

Maximum relative change in W at 
any mesh point between two outer 
iterations 

Average relative change in W for all 
mesh points between two outer iter- 
ations 

Logical variable indicating that 
velocity-gradient solutions should 
be repeated with new values of 
TIPT, RHOIP, and LAMBDA 

Indicator of which blade surface (lead- 
ing or trailing is suction surface 

REDFAC squared, or I.O for tran- 
sonic solution 


Input or calculated r- coordinate of 
intersection with hub profile of line 
on which upstream flow conditions 
are given, m 

p, at orthogonal mesh points, kg/m^ 

Average density across flow channel 
from suction surface to pressure 
surface, at orthogonal mesh points, 
kg/ m^ 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

RHOBF 


INDEV 

LINDV 

Pbf> 

RHOBFN 


LINDV 

2 

New pbf, kg/m 

RHOFS 


INDEV 

LINDV 

Pfg. kg/m^ 

RHOIP(MHTPl) 


TVELCY 

p! (1 - Ploss) for mesh points along 
vertical mesh lines, kg/ m® 

RHOIP(NIN) 


RHOIPF 

p! at input points of upstream flow 
y 3 

conditions, kg/m 

RHOIP 


NEWRHO 

OUTPUT 

LINDV 

Q 

pj (1 - Ploss), kg/m 

RHOIP 


TSONIN 

p! input for TSONIC, k^m^ 

RHOL 


BLDVEL 

TVELCY 

?l, kg/m^ 

RHOP 


OUTPUT 

O 

p', kg/m 

RHOPP 


OUTPUT 

p", kg/m^ 

RHOSL 


TSONIN 

p at a ZSL, RSL point along a stream- 
line, kg/m® 

RHOST(NSL) 


OUTPUT 

2 

p along a station line, kg/m 

RHOT 


BLDVEL 

TVELCY 

Ptr- 

RHOUT 

INPUTT 


Input or calculated r-coordinate of 
intersection with hub profile of line 
on which downstream flow condi- 




tions are given, m 

RHOWAV 


TVELCY 

(pW)^y, kg/ (sec) (m)® 

RHROT(NHUB) 

ROTATN 


Rotated RHUB array, m 

RHST(NOSTAT) 

INPUTT 


Input or calculated r-coordlnates of 
intersections of hiib- shroud output 
station lines with hub profile, m 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

RHUB(NHUB) 

INPUTT 


Input r- coordinates of points defining 


hub or bottom boundary of flow 
channel, m 


RIl 

TSONIN 

Input for TSONIC (ref. 3), m 

RI2 

TSONIN 

Input for TSONIC (ref. 3) , m 

RILOM(MHTPl) 

LAMDAF 

Radii for spline fit of stream function 
against radius 

RIR 

LOSSOM 

Rotated r- coordinate of intersection 
of upstream or downstream input 
station line with horizontal mesh 



line, m 


RLE(NBLPL) 

CAL CON 


r- coordinates of input blade- section 
points defining leading edge of 
blade, m 

RLEH 

CAL CON 


r-coordinate of intersection of leading 
edge of blade with hub profile, m 

RLEOM(MHTPl) 

CAL CON 


r- coordinates of intersections of hori- 
zontal mesh lines with blade leading 
edge, m 

RLEOMR(MHTPl) 

ROTATN 


Rotated RLEOM array, m 

RLESL 


TSONIN 

r-coordinate of intersection of a 
streamline with leading edge of 
blade, m 

RLET 

CAL CON 


r-coordinate of intersection of leading 
edge of blade with shroud profile, m 

RMSP(MM) 


TSONIN 

r-coordinates of points defining a 
stream channel, printed as input 
for TSONIC (ref. 3>, m 

RNOR(2) 


MESHO 

Rotated r-coordinates of points on 
strai^t line normal to previous 
row, m 

ROl 


TSONIN 

Input for TSONIC (ref. 3), m 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

R02 


TSONIN 

Input for TSONIC (ref. 3), m 

ROLOM(MHTPl) 


RVTHTA 

Radii for spline fit of stream function 
against radius 

ROM (MM, MHTPl) 

CALCON 


r-coordinates of orthogonal mesh, m 

ROMBI 

INPUTT 


Input or calculated r- coordinate of 
intersection of vertical mesh line 
with hub profile where first change 
in mesh spacing occurs (MBI), in 

ROMBO 

INPUTT 


Input or calculated r~ coordinate of 
intersection of vertical mesh line 
with hub profile where second 
change in mesh spacing occurs 
(MBO), m 

ROMIN 

INPUTT 


Input or calculated r- coordinate of 
Intersection of left boundary of 
orthogonal mesh with hub profile, m 

ROMOXJT 

INPUTT 


Input or calculated r-coordinate of 
intersection of right boundary of 
orthogonal mesh (MM) with hub pro- 
file, m 

ROMROT(MM, MHTPl) 

ROTATN 


Rotated ROM array, m 

RPC(NPPC, NBLPQ 

INDCOM 


r-coordinates of intersections of 
percent- chord lines with input blade 
planes; later set to r-coordinates of 
alternate mesh (fig. 27), m 

RPCT1(NBLPL) 


THETOM 

r-coordinates of intersections of 
percent- chord lines with input blade 
planes, m 

RPCT2(NBLPC) 


THETOM 

r-coordinates along percent- chord 
lines of alternate mesh, m 

RRAD(NHUB, MHTPl) 


MESHO 

r-coordinates of points along lines 


from input points on hub profile to 
shroud profile, m 


87 


Variable name 


COMMON 

block 


Subroutine 


Description and comments 


RSL(MM, NSL) 

RSLTEM(NSL) 

RST(NSL) 

RTE(NBLPL) 

RTEH 

RTEM(MHTP1, 
NOSTAT, or 20) 

RTEOM(MHTPl) 

RTEOMR(MHTPl) 

RTESL 

RTET 

RTIN 

RTIP(NTIP) 


SLCOM 


OUTPUT 

OUTPUT 


CAL CON 
CALCON 

OUTPUT 


CALCON 

ROTATN 

TSONIN 

CALCON 

CALCON 

INPUTT 


Array of r-coordinates of points along 
streamlines where they cross verti- 
cal mesh lines, m 

Temporary storage for calculated val- 
ues to be put into RSL array, m 

r-coordinates of points along station 
lines where they cross stream- 
lines, m 

r-coordinates of input blade-section 
points defining trailing edge of 
blade, m 

r- coordinate or intersection of trail- 
ing edge of blade with hub profile, m 

Temporary storage for values from 
ROM array on vertical mesh lines; 
also temporary storage for values 
from RST array along station 
lines, m 

r-coordinates of intersections of hori- 
zontal mesh lines with blade trailing 
edge, m 

Rotated RTEOM array, m 

r- coordinate of intersection of a 
streamline with trailing edge of 
blade, m 

r-coordinate of intersection of trailing 
edge of blade with shroud profile, m 

Input or calculated r-coordinate of in- 
tersection with shroud profile of 
line on which upstream flow condi- 
tions are given, m 

Input r-coordinates of points defining 
shroud or top boundary of flow 
channel, m 
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Variable name 


COMMON 

block 


Subroutine 


Description and comments 


RTOLER 

RTOUT 


RTROT(NTIP) 

RTST(NOSTAT) 

RVA 

RVAS 


RVTHI 

RVTHO 

SAL 

SAMP(MM,MHTP1) 

SBETA 

SDIST 

SF 


SFIN(NIN) 


SFOUT(NOUT) 


TVELCY 


INPUTT 


ROTATN 

INPUTT 


TVELCY 

TVELCY 

TSONIN 

TSONIN 

TVELCY 

VARCOM 


Tolerance for relative error of calcu- 
lated values of integrated mass flow 

Input or calculated r- coordinate of in- 
tersection with shroud profile of 
line on which downstream flow con- 
ditions are given, m 

Rotated RTIP array, m 

Input or calculated r-coordinates of 
intersections of hub- shroud output 
station lines with tip profile, m 

kg/ (m) (sec) 

X cos(a - 
kg/ (m) (sec) 

Input for TSONIC (ref. 3) , m^/ sec 
Input for TSONIC (ref. 3), m^/sec 
sin Of 

sin(Qf - cp) at orthogonal mesh points 


TVELCY 

INDEV 

LINDV 


LAMDAF 

RVTHTA 

TIPF 

RHOIPF 


INPUTT 


INPUTT 


sin p 

DISTLE (or DISTTE) plus distance 
from blade leading (or trailing) edge 
out to first adjacent mesh point, m 

Stream function 


Input values of stream function along 
hiib-shroud line on which upstream 
flow conditions are given 

Input values of stream function along 
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Variable name 


COMMON 

block 


Subroutine 


Description and comments 


SLENTH 

SLEOM(MHTPl) 


SLIDLE 


SLIDTE 

SLOM(MM) 

SLOPE (NIN 
or NOUT) 


SOM(MM,MHTPl) 

SOMIN(MHTPl) 


SOMOUT(MHTPl) 


SPHI(MM,MHTP1) 

STEOM(MHTPl) 


STGR 


CALCON 


CALCON 


CALCON 

CALCON 


LOSSOM 


INDEV 

LINDV 


INDEV 

LINDV 


MESHO 


TIPF 

RHOIPF 

LAMDAF 

RVTHTA 


hub- shroud line on which down- 
stream flow conditions are given 

Overall s- distance over which loss is 
distributed, m 

s- coordinates of intersections of hori- 
zontal mesh lines with blade leading 
edge, m 

Solidity at leading edge of blade where 
it is intersected by a horizontal 
mesh line 

Solidity at trailing edge of blade 
where it is intersected by a hori- 
zontal mesh line 

Slopes of horizontal mesh lines at 
mesh points 

Derivatives of spline-fit curves 


s- coordinates of orthogonal mesh, m 

LOSSOM s- coordinate of intersection of line on 

which upstream flow conditions are 
given with horizontal mesh lines, 
when there are no blades, m 

LOSSOM s- coordinates of intersection of line 

on which downstream flow condi- 
tions are given with horizontal 
mesh lines, m 

sin cp at orthogonal mesh points 

s- coordinates of intersections of hor- 
izontal mesh lines with blade trail- 
ing edge, m 

TSONIN Input for TSONIC (ref. 3) , rad 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

SZRBL(NPPP 
or NBLPL) 


PRECAL 

THETOM 

Arc length along input blade section 
or along hub- shroud percent- chord 
lines in meridional plane, m 

SZRPC(NPPC 
or NBLPC) 


THE TOM 

Arc length along vertical or horizon- 
tal lines of alternate mesh (fig. 27) 

TANBBF 


INDEV 

LINDV 

tan 

TANBBL 


INDEV 

LINDV 

tanj3^ 

TBFTIP 


LINDV 

V^l 

TGROG 

CALCON 


2tR/(v + 1) 

TH1BL(NPPP, NBLPL) 

INPUTT 


Input array of coordinates, corre- 
sponding to ZBL, RBL of points de- 
scribing upper blade surface, rad 

TH2BL(NPPP, NBLPL) 

INPUTT 


Input array of ^-coordinates, corre- 
sponding to ZBL, RBL of points de- 
scribing lower blade surface, rad 

THBL(NPPP, NBLPL) 

INPUTT 


Input array of ^-coordinates, corre- 
sponding to ZBL, RBL of points de- 
scribing mean blade surface, rad 

THLEOM(MHTPl) 

CALCON 


0-coordinates of intersections of hor- 
izontal mesh lines with blade lead- 
ing edge, rad 

THLESL 


TSONIN 

0- coordinate of intersection of 

streamline with blade leading edge, 
rad 

THPC(NPPC, NBLPC) 

INDCOM 


0-coordinates of intersections of 
percent-chord lines with input blade 
planes; later set to 0-coordinates 
of alternate mesh (fig. 27), rad 

THPCTl (NBLPL) 


THETOM 

0-coordinates of intersections of 
percent- chord lines with input blade 
planes, rad 
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Variable name 
THPCT2(NBLPC) 
THSL 

THSPl(MM) 

THSP2(MM) 

THSTAK 

THTEOM(MHTPl) 

THTESL 

TINP 

TIP(NIN) 

TTPT(MHTPl) 

TIPT 

TIPTEM 

TITLEI(20) 

TLTANl 

TLTAN2 


COMMON Subroutine Descr^jtion and comments 

block 



THETOM 

0-coordInates along percent- chord 
lines of alternate mesh, rad 


TSONIN 

0-coordinate (relative to MERIDL 
origin, not TSONIC origin) of mean 
blade surface at points along meri- 
dional streamlines, rad 


TSONIN ' 

Input for TSONIC (ref. 3), rad 


TSONIN 

Input for TSONIC (ref. 3), rad 


TSONIN 

0-coordinate of blade section In rela- 
tion to hub blade section, rad 

CALCON 


0-coordinates of intersections of hor- 
izontal mesh lines with blade trail- 
ing edge, rad 


TSONIN 

0- coordinate of intersection of meri- 
dional streamline with blade trail- 
ing edge, rad 


LOSSOM 

T!, K 

INPUTT 


Input T' at points along the line from 
hub to shroud on which upstream 
flow conditions are given, K 


TVELCY 

T! at points along vertical mesh 
lines, K 


N^RHO 

OUTPUT 

Temporary T! 


TSONIN 

Tj along a streamline, K; Input TIP 
for TSONIC (ref. 3) 

INPUTT 


Alphanumerical contents of input title 
card 


TSONIN 

0-coordinate at upper blade surface 
leading- edge tangency point, rad 


TSONIN 

0-coordinate at lower blade surface 
leading-edge tangency point, rad 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

TMSL 


TSONIN 

m-coordinates of tangency points on 
both blade surfaces, m 

TNBL(NPPP, NBLPL) 

INPUTT 


Input array of blade normal thick- 
nesses, corresponding to ZBL, RBL 
coordinates, m 

TOLER 


TIPF 

RHOIPF 

LAMDAF 

RVTHTA 

Tolerance for a point close to a spline 
point 

TOM (MM, MHTPl) 

CALCON 


t^coordinates of orthogonal mesh, m 

TOP 


LOSSOM 

T* , K 
o’ 

TPP (MHTPl) 


NEWRHO 

TVELCY 

OUTPUT 

T” along a vertical mesh line, K 

TPP 


OUTPUT 

TVELCY 

LINDV 

T’’, K 

TPPN 


TVELCY 

New T”, K 

TPPST(NSL) 


OUTPUT 

T” along a station line, K 

TPP TIP 


INIT 

TVT[ 

TPST(NSL) 


OUTPUT 

T^ along a station line, K 

TST(NSL) 


OUTPUT 

T along a station line, K 

TTBL(NPPP, NBLPL) 

INPUTT 


Input array of blade tangential thick- 
nesses, corresponding to ZBL, RBL 
coordinates, rad 

TTIP 


NEWRHO 

BLDVEL 

TVELCY 

T/T! 

TTPC(NPPC, NBLPC) 

INDCOM 


Tangential blade thicknesses at inter- 
sections of percent- chord lines with 
input blade planes; later set to tang- 
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Vai’iable name 

COMMON 

block 

Subroutine 

Description and comments 




gential blade thicknesses on alter- 
nate mesh (fig. 27), rad 

TTPCT1(NBLPL) 


THETOM 

Tangential blade thicknesses at inter- 
sections of percent- chord lines with 
input blade planes, rad 

TTPCT2(NBLPC) 


THETOM 

Tangential blade thicknesses along 
percent- chord lines of alternate 
mesh, rad 

TTTANl 


TSONIN 

0- coordinate at upper blade surface 
trailing-edge tangency point, rad 

TTTAN2 


TSONIN 

0- coordinate at lower blade surface 
trailing-edge tangency point, rad 

TVERT(MHTPl) 


NEWRHO 

BLDVEL 

OUTPUT 

TVELCY 

Temporary storage for values from 
TOM array on a vertical mesh 
line, m 

TWLMR(MHTPl) 


TVELCY 

2 

2(jA - (cor) at points along vertical 
mesh lines, tc? / sec? 

TWLMR 


BLDVEL 

LINDV 

2co\ - (cor)^, VC? /sec? 

UBDEV(MRTP1) 


LINDV 

Deviation angle, neglecting blockage 
correction, where hoiizontal or- 
thogonal intersects blade, 

le 

UBDEV 


INDEV 

Deviation angle, neglecting blockage 
correction, {0^^ - 0^^ , deg 

UBINC(MHTPl) 


LINDV 

Incidence angle, neglecting blockage 
correction, where horizontal or- 
thogonal intersects blade, 

-%S ” 

UBINC 


INDEV 

Incidence angle, neglecting blockage 


correction, 
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Variable name 

COMMON 

block 

Subroutine 

Description atid comments 

UIL0M(MHTP1) 


LAMDAF 

Stream-function values for spline fit 
of stream function against radius 

UNEW(MHTPl) 


TVELCY 

New estimate for u along a vertical 
mesh line 

UNEW 


SOR 

New estimate for u at a mesh point 

UOLOM(MHTPl) 


RVTHTA 

Stream- function values for spline fit 
of stream function against radius 

UOM(MM,MHTPl) 

VARCOM 


Stream function u at orthogonal mesh 
points 

UTEM(MHTP1 or 20) 


OUTPUT 

Temporary storage for values from 
UOM array on vertical mesh lines; 
also stream function at 20 equally 
spaced points from hub to shroud 

UVERT(MHTPl) 


NEWRHO 

Temporary storage for values from 
UOM array along vertical mesh 
lines 

VELTEM 


TSONIN 

Input for TSONIC (ref. 3) 

VELTOL 

INPUTT 


Input convergence tolerance on maxi- 
mum velocity change in each outer 
iteration, over all mesh points, for 
reduced mass flow 

VST(NSL) 


OUTPUT 

V along a station line, m/sec 

VTH(MM, MHTPl) 

VARCOM 


V^ at orthogonal mesn points, m/ sec 

VTHIN(NIN) 

INPUTT 


Input values of (V^) at points along 

line from hub to shi'oud on which 
upstream flow conditions are given, 
m/ sec 

VTHOUT(NOUT) 

INPUTT 


Input values of (V^) at points along 

line from hub to shroud on which 
downstream flow conditions are 
given, m/sec 

VTHST(NSL) 


OUTPUT 

V^ along station line, m/ sec 
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Variable name 


COMMON 

block 


Subroutine 


Description and comments 


W(MM,MHTP1) 

VARCOM 


W at orthogonal mesh points, m/ sec 

WAS 


TVELCY 

First estimate of W. , . at next mesh 
point along vertical mesh line 
(eq. (5)), m/sec 

WASS 


TVELCY 

Second estimate of at next 

mesh point along vertical mesh 
line (eq. (5)), m/sec 

WFS 


LINDV 

at blade leading or trailing edge, 
m/ sec 

WHIRL 


TVELCY 

o 

X or (rV^) , m / sec 

WIIUB 


TVELCY 

Estimate of m/ sec 

WLSRF 


TVELCY 

, m/ sec 

WLSSL(MM, NSL) 

SLCOM 


at points along streamlines where 
they cross vertical mesh lines, 
m/ sec 

WLSST(NSL) 


OUTPUT 

at points along station lines where 
they cross streamlines, m/sec 

WLSURF(MM, MHTPl) 

VARCOM 


on orthogonal mesh, m/ sec 

WMAX 


TVELCY 

Maximum value of W at hub for 
which a solution can be obtained for 
a vertical mesh line, m/sec 

WMIN 


TVELCY 

Minimum value of W at hub for 
which a solution can be obtained for 
a vertical mesh line, tn/ sec 

WMSL(MM, NSL) 

SLCOM 


at points where streamlines 
cross vertical mesh lines, m/ sec 

WMSON 


LINDV 

Sonic value for m/ sec 

WMST(NSL) 


OUTPUT 

^m pobits where station lines 

cross streamlines, m / sec 

WMVERT(MHTPI) 


TVELCY 

along vertical mesh lines, m/sec 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

WRFSEX(MHTPl) 


OUTPUT 

extrapolated up to leading or 
trailing edge of blade, m/ sec 

WRSL(MM, NSL) 

SLCOM 


at points where streamlines cross 
vertical mesh lines, m/ sec 

WRST{NSL) 


OUTPUT 

at points where station lines 
cross streamlines, m/ sec 

WSL(MM, NSL) 

SLCOM 


W at points where streamlines cross 
vertical mesh lines, m/sec 

WST(NSL) 


OUTPUT 

W at points where station lines cross 
streamlines, m/ sec 

WSUBM(MM, MHTPl) 

VARCOM 


Wm at orthogonal mesh points, 
m/sec 

WSUBR(MM,MHTP1) 

VARCOM 


at orthogonal mesh points, m/ sec 

WSUBS(MM, MHTPl) 

VARCOM 


W at orthogonal mesh points, m/ sec 
s 

WSUBT(MM, MHTPl) 

VARCOM 


at orthogonal mesh points, m/ sec 

WSUBZ (MM, MHTPl) 

VARCOM 


at orthogonal mesh points, m/sec 

WTEMP 


NEWRHO 

New calculated value of W at a mesh 
point, m/ sec 

WTH(MM, MHTPl) 

VARCOM 


at orthogonal mesh points, m/sec 

WTHETA 


TVELCY 

LINDV 

W^, m/sec 

WTHSL(MM, NSL) 

SLCOM 


at points where streamlines 
cross vertical mesh lines, m/ sec 

WTHST(NSL) 


OUTPUT 

at points where station lines 
cross streamlines, m/ sec 

WTSRF 


TVELCY 

m/sec 

WTSSL(MM, NSL) 

SLCOM 


Wtr at points where streamlines 
cross vertical mesh lines, m/ sec 

WTSST(NSL) 


OUTPUT 

W^r points where station lines 

cross streamlines, m/sec 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

WTSURF (MM, MHTP 1) 

VARCOM 


on orthogonal mesh, m/ sec 

WTVERT(MHTP1) 


TVELCY 

along vertical mesh lines, m/ sec 

WWCR(MM, MHTPl) 

VARCOM 


W/W^^ at orthogonal mesh points 

WWCRSL(MM, NSL) 

SLCOM 


W/Wc^ at points where streamlines 
cross vertical mesh lines 

WWCRST(NSL) 


OUTPUT 

W/W^^ at points where station lines 
cross streamlines 

WZFSEX (MHTPl) 


OUTPUT 

extrapolated up to leading or 
trailing edge of blade, m/ sec 

WZSL(MM, NSL) 

SLCOM 


at points where streamlines 
cross vertical mesh lines, m/ sec 

WZST(NSL) 


OUTPUT 

at points where station lines 
cross streamlines, m/ sec 

XIOM (MM, MHTPl) 

VARCOM 


1 at orthogonal mesh points, 
(eq. (A2)), l/m 

XIOMT 


NEWRHO 

New estimated value of ^ at a mesh 
point 

KNEW 


NEWRHO 

Percentage of new calculated value of 
XIOMT used in updating XIOM 

Zl(MM) 


MESHO 

z- coordinate of intersection of line 
(^, figure 9, with upper horizon- 
tal mesh line, m 

Z2 


MESHO 

z-coordinate of intersection of line 
figure 9, with upper horizon- 
tal mesh line, m 

ZBL(NPPP, NBLPL) 

INPUTT 


Liput array of z- coordinates of points 
describing blade surface, m 

ZBLROT(NPPP, 

NBLPL) 

ROTATN 


Rotated ZBL array, m 

ZETOM(MM, MHTPl) 

VARCOM 


^ at orthogonal mesh points 
(eq. (A3)), m/sec 
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Variable name 


COMMON 

block 


Subroutine 


Description and comments 


ZETOMT 

ZHIN 


ZHOUT 


ZHROT(NHUB) 

ZHST(NOSTAT) 


ZHUB(NHUB) 


zm 


ZLE(NBLPL) 

ZLEH 

ZLEOMfMHTPl) 

ZLEOMR(MHTPl) 

ZLESL 


ZLET 


NEWRHO 


INPUTT 


INPUTT 


ROTATN 

INPUTT 


INPUTT 


LOSSOM 


CALCON 


New estimated value of f at a mesh 
point 

Input z- coordinate of intersection with 
hub profile of line on which up- 
stream flow conditions are given, m 

Input z- coordinate of intersection 
with hub profile of line on which 
downstream flow conditions are 
given, m 

Rotated ZHUB array, m 

Input z- coordinates of intersections 
of hub- shroud output station lines 
with hub profile, m 

Input z-coordinates of points defining 
hub or bottom boundary of flow 
channel, m 

Rotated z- coordinate of intersection 
of upstream or downstream input 
station line with horizontal mesh 
line, m 

z-coordinates of input blade section 
points defining leading edge of 
blade, m 


PRECAL 


CALCON 


ROTATN 


TSONIN 


PRECAL 


z-coordinate of intersection of leading 
edge of blade with hub profile, m 

z-coordinates of intersections of hor- 
izontal mesh lines with blade lead- 
ing edge, m 

Rotated ZLEOM array, m 

z-coordinate of intersection of a 
streamline with leading edge of 
blade, m 

z-coordinate of intersection of leading 
edge of blade with shroud profile, m 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

ZLTANl 


TSONIN 

m~ coordinate at upper blade surface 
leading- edge tangency point, m 

ZLTAN2 


TSONIN 

m- coordinate at lower blade surface 
leading- edge tangency point, m 

ZMRSP(MM) 


TSONIN 

Input for TSONIC (ref. 3) , m 

ZMSFL 


TSONIN 

Input for TSONIC (ref. 3), kg/sec 

ZMSPl(MM) 


TSONIN 

Input for TSONIC (ref. 3), m 

ZMSP2(MM) 


TSONIN 

Input for TSONIC (ref. 3), m 

ZNEW 


NEWRHO 

Percentage of new calculated value of 
ZETOMT used in updating ZETOM 

ZNOR(2) 


MESHO 

Rotated z- coordinates of points on 
straight line normal to previous 
row, m 

ZOM(MM, MHTPl) 

CALCON 


z-coordinates of orthogonal mesh, m 

ZOMBI 

INPUTT 


Input z- coordinate of intersection of 
vertical mesh line with hub profile 
where first change in mesh spacing 
occurs (MBI), m 

ZOMBO 

INPUTT 


Input z- coordinate of intersection of 
vertical mesh line with hub profile 
where second change in mesh spac- 
ing occurs (MBO) , m 

ZOMIN 

INPUTT 


Input z- coordinate of intersection of 
left boundary of orthogonal mesh 
with hub profile, m 

ZOMOUT 

INPUTT 


Input z- coordinate of intersection of 
ri^t boundary of orthogonal mesh 
(MM) with hub profile, m 

ZOMROT(MM, 

MHTPl) 

ROTATN 


Rotated ZOM array, m 

ZPC(NPPC, 

NBLPC) 

INDCOM 


z-coordinates of intersections of 
percent- chord lines with input blade 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

planes; later set to z-coordinates of 
alternate mesh (fig. 27), m 

ZPCTl(NBLPL) 


THETOM 

z-coordinates of intersections of 
percent- chord lines with input blade 
planes, m 

ZPCT2(NBLPQ 


THE TOM 

z-coordinates along percent- chord 
lines of alternate mesh, m 

ZRAD(NHUB, 

MHTPl) 


MESHO 

z-coordinates of points along lines 
irom input points on hub profile to 
shroud profile, m 

ZSL(MM,NSL) 

SLCOM 


z-coordinates of points where stream- 
lines cross vertical mesh lines, m 

ZSLTEM(NSL) 


OUTPUT 

Temporary storage for calculated 
values to be put into ZSL array, m 

ZSPL 


ILETE 

z- coordinate on leading or trailing 
edge of blade corresponding to a 
streamline, m 

ZST(NSL) 


OUTPUT 

z-coordinates of points where station 
lines cross streamlines, m 

ZTE(NBLPL) 

CALCON 


z-coordinates of input blade- section 
points defining trailing edge of 
blade, m 

ZTEH 


PRECAL 

z-coordinate of intersection of trail- 
ing edge of blade with hub profile, m 

ZTEM(MHTP1, 
NOSTAT, or 20) 


OUTPUT 

Temporary storage for values from 
ZOM array on vertical mesh lines; 
also temporary storage for values 
from ZST array along station 
lines, m 

ZTEOM (MHTPl) 

CALCON 


z-coordinates of intersections of hor- 
izontal mesh lines with blade trail- 
ing edge, m 

ZTEOMR(MHTPl) 

ROTATN 


Rotated ZTEOM array, m 
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Variable name 


COMMON 

block 


Subroutine 


ZTESL 


ZTET 


ZTIN 


ZTIP(NTIP) 

ZTOUT 

ZTROT(NTIP) 

ZTST(NOSTAT) 

ZTTANl 

ZTTAN2 


Description and 


comments 


TSONIN 

PRECAL 

INPUTT 

INPUTT 

INPUTT 

ROTATN 

INPUTT 


TSONIN 

TSONIN 


z- coordinate of intersection of a 
streamline with trailing edge of 
blade, m 

z- coordinate of intersection of trail- 
ing edge of blade with shroud pro- 
file, m 

Input z- coordinate of intersection of 
line on which upstream flow condi- 
tions are given with shroud pro- 
file, m 

Input z- coordinates of points defining 
shroud or top boundary of flow 
channel, m 

Input z- coordinate of intersection of 
line on which downstream flow con- 
ditions are given with shroud pro- 
file, m 

Rotated ZTIP array, m 

Input z-coordinates of intersections of 
hub- shroud output station lines with 
shroud profile, m 

m-coordinate at upper blade surface 
trailing- edge tangency point, m 

m-coordinate at lower blade surface 
trailing- edge tangency point, m 
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PROGRAM LISTING 


C 

C--MERIDL PPOGRAH -- UPDATED TO JULY 1, 1977 
C — REPORTS — NASA TND-8430 AND TND-8431, 1977 
C--PROGRAN AVAILABLE FROM COSMIC -- NUMBER LEW-12129 
C--FOR INFORMATION CONTACT : DR. T. KATSANIS (MAIL STOP 77-2) OR 

C-- DR. W. MCNALLY (MAIL STOP 5-9) 

C-- NASA LEWIS RESEARCH CENTER 

C-- CLEVELAND, OHIO 44135 

C-- PHONE : (216) — 433-4000 

C 
C 

COMMON NREAD, NWRIT,ITER,IEND,NWRT1, N WRT2 , N WPT3, NWRT4 , NWRT5 , N WRT6 
COMMON/INPUTT/GAM, AR, MS FL, OMEGA, REDFAC, VELTOL, FNEW, DNEW, HBI, MRO, 

1 MM, HHT, NBL, N HUB , N T IP , NIN , N OUT , N B LPL , NPPP, NOSTAT, NSL, NLOSS , 

2 LSFR,LTPL,LAMVT, LROT,LBLAD,LETEAN, ANGROT, IMESH,ISLINE, 

3 ISTATL, T PLOT, ISU PER, ITSON, IDEBUG , ZOMIN , ZOMBI , 70MB0 , ZOMOUT , 

4 ROHIN,ROMBI,HOMBO,ROMOUT ,ZHIN,ZTIN,ZHOUT,ZTOUT,RHIN,RTTN,RHOTJT, 

5 RTOUT,TITLEI (20) , ZHUB (5^ ) , RHOB (5 0) , ZTI P ( 50) , RTIP (50) , SPIN (50) , 

6 RADIN(50),TIP(50) ,PRIP(5C) ,LAHTN(5n),VTHIN(50),SFOU’^(5''), 

7 RADOUT (50) , PROP (50) , LOSOUT (50) ,LAMOUT (50) , VTHOUT (50) , 

8 BETALE(50) , BET ATE (50) ,ZHST(50) ,ZTST(50) , PH ST (5^) ,RTST(50) , 

9 FLFR (50) ,PERCRD(50) ,PERLOS (50) ,ZBL(50,50) ,PBL(50,50) , 

1 THBL(50,50) , T N BL ( 5'' , 5 0) , TTBL ( 5»^ , 50) , TH IDL (5C , 50) ,TH2BL ( 50 , 5C ) 

COMMON/CALCON/MMM1 , MHTP1 , CP, EXPO N,T GROG, PITCH, RLEH, RL ET , RT EH, RTET , 

1 ZLE(50) , RLE (50) , ZTE (50) , RTE (50) ,ZLEOM (101) ,RLEOM (101) , 

2 SLEOM (101) , THLEOM ( 1 0 1 ) , ZTEOM ( 1 1 ) ,RTEOH (101) ,STEOM (101) , 

3 THTEOM (101) ,ILE(101) ,ITE(101) ,ZOM(100,101) ,ROM (100,101) , 

4 SOM (100, 101) ,TOM (100,101), BTH (100, 101) ,DTHDS (100,101) , 

5 DTHDT (100, 1 01 ) ,PLOSS (1C0 , 1C 1) , CPHI ( 1 00 , 1 0 1 ) ,SPHI (100,10 1) 
COHHON/VARCOM/A (4,100,10 1), UOM (100,1C1),K(100,101), RHO (100,101), 

1 WSOBS (100, 101) , WSUBT ( 100 , 101) , WSUBZ ( 100, 101) , WSUBP (100,101) , 

2 WSOBM (100, 101) , WTH (100,101) , VTH (100, 10 1) ,W (100, 101) , 

3 ALPHA (100, 101) ,BETA ( 100 , 101) , HWCR ( 100,101) ,CURV (100 , 1''1) , 

4 WLSURF (1 00 ,101) , WTS URF ( 1 CO , 1 0 1 ) , CAM P ( 100 , 1 o ) ) , samP (100,101), 

5 RHOAV (100,101) ,DELRHO (1 00 , 1 0 1 ) , FT ( 1C 0 , 10 1 ) ,DFDM (10 0, 101) , 

6 XIOH (100,101) ,ZETOM(100, 101) ,DLDU(100, 101) 

COMMON/SLCOM/ILS (50) ,ITS (50 ) , ZS L ( 1 0 0 , 50 ) , RSL ( 100 , 50) , MSL ( 1 OF , 50) , 

1 WZSL ( 100,50) ,WRSL (IOC ,50) , WMSL (1 00,50) ,WTHSL (100,50) , 

2 ALPSL (100,50) ,BETSL (100 ,5C) , WSL ( 1 00 , 50) , WWCRSL ( 1 00 , 50) , 

3 CORVSL(100, 50) ,WLSSL (100,50) , WTS S L ( 1 00 , 50) 

COMHON/BOTATN/ZHROT (50) ,RHROT(50) ,ZTROT(50) ,RTROT(50) , 

1 ZLEOMR (101) ,RLEOMR (101) ,ZTEOMR (101) , RTEOMR (101) , 

2 ZBLROT (50,50) ,RBLROT (50 , 50) , ZOMROT ( 1 00 , 1 0 1 ) ,ROMROT ( 1 00 , 1 0 1 ) 
COHHON/INDCOH/NBLPC, NPPC,ZPC (51 , 51) , RPC (51, 51) ,TTPC(51,51) , 

1 THPC (51 , 51) , DTHDZ (51 , 51) ,DTHDR (5 1 , 5 1 ) , BTHLE ( 10 1) ,BTHTE ( 101) , 

2 BTBFLE ( 101) ,BTBFTE (10 1) 

COMMON/PLTCOM/ZLRNG, ZRRNG,RBRNG, RTRNG,ZHPLT (100) , RHPLT (100) , 

1 ZSPLT(IOO) ,RSPLT(100) ,ZLPLT(100) ,RLPLT(100) ,ZTPLT(10D) , 

2 BTPLT(IOO) 

1C TEND = -1 

ITER = 0 

--HEAD AND PLOT INPUT DATA 
CALL INPUT 
CALL IHPLOT 
C 


103 



non on on no non noon 


C--GENERATE ORTHOGONAL MESH 
CALL HESHO 

--CALCULATE ALL PRELIMINARY FIXED CONSTANTS 
CALL PRECAL 

--PLOT ORTHOGONAL MESH 
CALL MEPLOT 

--CALCULATE COEFFICIENTS, SOLVE DIFFERENTIAL EQUATIONS FOR STREAM 
--FUNCTION, AND COMPUTE NEW VELOCITIES AND DENSITIES 
CALL INIT 
20 ITER = ITER+1 
CALL COEF 
CALL SOR 
CALL LOSSOM 
CALL NEWRHO 

--CALCULATE AND PRINT MAJOR OUTPUT DATA 
CALL OUTPUT 

IF (MBI.NE.O) CALL INDEV 
IF (MBI.NE.O) CALL TSONIN 

--PLOT STREAMLINES AND PLOT VELOCITIES 
CALL SLPLOT 
CALL SVPLOT 

IF (lEND.LT.O) GO TO 20 
IF (REDFAC. EQ. 1 . 0) GO TO 10 

--OBTAIN TRANSONIC SOLUTION WITH FULL MASS FLOW 
30 CALL TVELCY 
REDFAC = 1.0 
CALL TOUTPT 

IF (MBI.NE.O) CALL PINDV 
IF (MBI.NE.O) CALL TSONIN 
CALL SLPLOT 
CALL SVPLOT 

IF (ISUPER.EQ.0.OR.IS0PEF.EQ.2) GO TO 10 
ISUPER = 2 
GO TO 30 
END 


SUBROUTINE INPUT 

-INPUT READS AND PRINTS ALL INPUT DATA CARDS 

COMMON NREAD, NWR IT, ITER , TEND, NWRTi , N WRT2 , N WRT3 , N WPta , N WRT5 , N WRT6 
COMMON/INPUTT/GAM, AR, MS FI, OMEGA, REDFAC, VELTOL, FNEW, DNEW, MB I, MBO , 

1 MM, MHT, NBL,NHUB,NTIP, NIN,N0UT,NBLPL,NPPP, NOSTAT,NSL,NLOSS, 

2 LSFR,LTPL,LAMVT,LROT,LBLAD,LETEAN,ANGROT, IMESH , ISLINE, 

3 ISTATL, I PLOT, ISUPER, ITSON,TDEBUG,ZOMIN, ZOMBI, ZOMBO,ZOMOUT, 

4 ROMIN,ROMBI, ROMEO, ROMOUT,ZHIN,ZTIN,ZHOUT,ZTOUT,RHIH,RTIN, RHOUT, 

5 RTOOT,TITLEI (20) , ZHUB (50) , RHOB(50) ,ZTIP(50) ,RTIP (50) ,SFIN (50) , 

6 RADIN (50) ,TIP (50) ,PRIP (50) , LAMIN (50) ,VTHIN(50) , SPOUT (50) , 
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1 RADOOT(50) .PROP (50) ,LOSOUT(5C) ,LA«Ori'^(50) ,VTHOrJT(50) , 

8 BETALE (50) .BETATE ('^P) ,ZHST (50) , ZTST (50) , BHST (50) ,PTST (5'>) , 

9 FLFB(50) ,PERCRD(50) ,PERLOS(50) ,2BL(50,50) ,RBL(50,5O) , 

1 THBL(50,50) , TfIBL (5C , 50) ,TTBL(50,50) , TH 1 BL (50 , 50) , T H2BL ( 50 , 50 ) 

COrMON/CALCON/HMni,MHTPl ,CP,EXPON,TGROG,PITCH,RLEH,RLBT,RTEH,RTEr, 

1 ZLE (50) .RLE (50) .ZTE (50) .RTE(5 0> , ZLEOfl (101) .RLEOH (10 1), 

2 SLEOH (101) .THLEOn (I'^l) .ZTEOH(IOI) , RT EOM ( 1 '' 1) .STEOM (101) , 

3 THTEOM (101) , ILE(in 1) , ITE (101) ,ZOM ( 100, 10 1) .POM (100 , l^-t) , 

4 SON { 1 00 , 101 ) , TON ( 100 , 10 1 ) , BTH (100 , 10 1) .DTHOS (100,10 1), 

5 DTHDT (100, 101) ,PLOSS ( 100 , 1 C 1 ) ,CP HT ( 1 , 1 1) ,SPHT (1'^'' , 1 -i 1) 

DIHENSION BIST (50) ,DTDS (S'!) , ANG (50) 

REAL NSFL, LANIN, LANODT.LOSOtJT 

--READ AND PRINT INPUT DATA 
C 

NREAD = 5 
NWRIT = 6 
NWRT1 = 6 
NWRT2 = 6 
NHRT3 = 6 
NWRT4 = 6 
NWRT5 = 6 
NWRT6 = 6 

10 READ (NREAD, 1 050) (TITLEI ( I ) , 1= 1 , 20 ) 

WRITE (NWRIT , 1000) 

WRITE (NWRIT, 1 060) (TITLEI(I) ,1=1,2'^) 

READ (NREAD, 1030) GAM, AR , NS EL, ON EG A , REDFAC, VELTOL , FNE M , DNE W 
IF (GAM.NE.O.) WRITE (NWRIT, 11G0) 

IF (GAH.EQ.O.) WRITE (NWRIT, 1 102) 

IF (REDFAC. LE.O.) REDFAC=1 . 0 
IF (VELTOL. LE.O.) VELTOL=.01 
IF (FNEW.LE.O.) FNEW=C.5 
IF (DNEW.LE.C.) DNEW=0.5 

WRITE ( NWRIT, 1 0 40) G AN, AR ,MSFL,ONEG A, REDFAC, VELTOL, FNE W, DNE W 
VELTOL = VELTOL*ANIN1 (FNEW, DNEW) 

IF (FNEW. LT. 1 .0. OR. DNEW. LT. 1.0) WRITE (NWRIT, 1 105) VELTOL 
WRITE (NWRIT, 1 110) 

READ (NREAD, 1010) MBI , MBO, HN, MHT, NBL, NHOB,NTIP, NIN, NOUT, N3LPL, 

1 NPPP, NOSTAT.NSL, NLOSS 
IF (MBI.EQ.O) NBL=1 

WRITE (NWRIT, 10 20) HBI, NBO, NH.MHT, NBL, NHUB, NTIP, NIN, NOUT, NBLPL, 

1 NPPP, NOSTAT.NSL, NLOSS 
WRITE (NWRIT, 1 120) 

READ (NREAD, 1010) LS FR , LTPL , L AN VT, LROT, LBLA D, LETE AN 
WRITE (NWRIT, 10 20) LSFR , LTPL , LAN VT , LROT , LBLA D, LETE AN 
ANGROT = 0. 

IF (LROT.EQ.O) GO TO 15 
WRITE (NWRIT, 1 125) 

READ (NREAD, 1030) ANGROT 
WRITE (NWRIT, 1 040) ANGROT 
ANGROT = ANGROT/57. 295780 
15 WRITE (NWRIT, 1 1 30) 

READ (NREAD, 10 30) ZOMIN , ZOMBI , ZOHBO , ZOHODT, ROMIN , ROND I , FON 30 , 
1ROMOOT 

WRITE (NWRIT, 10 40) ZOM IN , ZOMBI ,ZONBO , ZOMOUT, FOMIN , ROMB I , PON BO , 
1ROHOOT 

WRITE(NWRIT,1 140) 

READ (NREAD, 1030) (ZHUB (I) , 1= 1 , NHUB) 

WRITE(NWRIT, 1040) (ZHOB(I) ,I=1,NHaB) 
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WRITE (NWPIT,1 1 50) 
READ (NREAD,1030) 
WRITE (NHRIT, 1 040) 
W8ITE(NWPIT,1 160) 
READ (NBEAD,1030) 
WRITE (NWPIT,1040) 
WRITE (NWEIT,1 170) 
READ (NREAD,1030) 
WRITE (NWRIT,1040) 
HRITE(NWRIT,1 180) 
READ (NREAD,1030) 
WRITE(NWEIT,104C) 
IF (LSFR.EQ.1) GO 
WRITE (NWPIT, 1 190) 
READ (NREAD,1030) 
WRITE (NWRIT,1040) 
GO TO 30 

20 WRITE(NWPIT,12CC) 
READ (NREAD,1030) 
HRITE(NWRIT,1040) 

3G WRITE (NWRIT, 1210) 
READ (NREAD,1030) 
WHITE (NWPIT, 1 040) 
WRITE (NWRIT, 1 220) 
READ (NREAD,1030) 
WRITE (NWRIT, 1040) 
IP (LAMVT.EQ.1) GO 
WRITE (NWPIT, 1230) 
READ (NREAD,1030) 
WRITE (NWRIT, 1040) 
GO TO 50 

40 WRITE (NWRIT , 1 240) 
READ (NREAD,1030) 
WRITE (NWRIT, 1040) 

50 WRITE (NWRIT, 1250) 
READ (NREAD,1030) 
WHITE (NWRIT, 1040) 
IF (LSFR.EQ.1) GO 
WRITE (NWRIT, 1260) 
READ (NREAD,1C30) 
WRITE (NWRIT, 1040) 
GO TO 70 

6C WRITE (NHRIT ,1 270) 
READ (NREAD,1030) 
WRITE (NWRIT, 1040) 

7C IF (LTPL.EQ.1) GO 
WRITE (NHRIT, 1280) 
READ (NREAD, 1 030) 
WRITE (NWRIT, 1040) 
GO TO 90 

80 HRITE(NWRIT,1290) 
READ (NREAD, 1030) 
WRITE (NWRIT, 1040) 

9C IF(«BI.EQ.0) GO TO 
IF (LAHVT.EQ.1) GO 
WRITE (NHRIT, 1 300) 
READ (NREAD, 1030) 
WRITE (NWRIT, 1040) 
GO TO 110 


(RHOB (I) , I=1,NHOB) 
(RHUB (I) , 1=1, NHUB) 

(ZTIP (I) ,I=1,NTIP) 
(ZTIP(I) ,1 = 1, HTTP) 

(RTIP (I) ,I=1,NTIP) 
(RTIP(I) ,I=1,NTIP) 

ZHTN,ZTIN,RHIN,RTIN 
ZHIN,ZTIN,PHIN,RTIN 
TO 20 

(SPIN (I) , 1=1, NIN) 
(SPIN (I) , 1=1, NIN) 


(RADIN (I) ,1=1 , NIN) 
(RADIN (I) , 1=1 , NIN) 

(TIP (I) , 1 = 1 , NIN) 
(TIP(I) ,1=1, NIN) 

(PRIP (I) ,1=1, NIN) 
(PRIP (I) , 1=1, NIN) 
TO 4 0 

(LAMIN (I) ,1=1 , NIN) 
(LABIN(I) ,1=1, NIN) 


(VTHIN (I) ,1=1 , NIN) 
(VTHIN (I) ,1=1 , NIN) 

ZHOOT,ZTOUT,RHOUT,RTODT 
ZHOUT, ZTOOT,RHOaT, RTODT 
TO 60 

(SFOOT(I) ,I = 1,NOOT) 
(SFOUT (I) ,1=1 , NOOT) 


(RADOUT (I) ,1=1 ,NOnT) 
(RADOOT(I) ,1=1 ,NOtIT) 
TO 80 

(PROP (I) ,I=1,NOOT) 
(PROP (I) , 1=1, NOOT) 


(LOSODTd) ,1=1 , NOOT) 
(LOSOOT(I) ,1=1 ,NODT) 
157 

TO 100 

(LAMOOT(I) ,1=1 ,NOOT) 
(LAHOUT(I) ,1=1 ,NOUT) 
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100 WRITE (NHRIT,1 310) 

READ (NREAD, 1030) { VTHOriT ( I) , 1= 1 , NO OT) 

WRITE (NWRIT,10U0) (VTHOtJT{I) ,1=1 , NODT) 
lie WRITE (NWRIT, 1 320) 

DO 120 JN=1,N6LPL 

READ (NREAD,1030) (Z BL ( IN, J N) , IN= 1 , NPPP) 
120 WRITE (NWRIT, 1040) (ZBL (IN, JN) ,IN=1 , NPPP) 
WRITE (NWRIT, 1 330) 

DO 130 JN=1 ,NBLPL 

READ (NBEAD,1030) (R BL ( IN, J N) , IN= 1 , NPPP) 
130 WRITE (NWRIT, 1040} (RBI, (IN, JN) ,IN=1 , NPPP) 

IF (LBLAD. EQ. 2) GO TO 1 50 
WRITE (NWRIT, 1 340) 

DO 140 JN=1,NBLPL 

READ (NREAD,1030) (T HBL (IN , JN) , I N= 1 , NPPP) 
140 WRITE (NWRIT, 1040) (THBL ( IN , J N) , I'N= 1 , NPPP) 
IF (LBLAD. EQ.1) GO TO 146 
WRITE (NWRIT, 1 350) 

DO 145 JN=1 ,NBLPL 

READ (NREAD, 1030) (TNBL ( IN , JN) , I N= 1 , NPPP) 

145 WRITE (NWRIT, 1 040) (T NBL (IN , JN) , I N= 1 , NPPP) 
GO TO 156 

146 WRITE (NWRIT, 1 352) 

DO 148 JN=1,NBLPL 

READ (NREAD,1 030) (TTBL (IN , JN) , I N= 1 , NPPP) 
148 WRITE (NWRIT, 1040) (TTBL ( IN , JN) , I N= 1 , NPPP) 
GO TO 156 

150 WRITE(NWRIT,1354) 

DO 152 JN=1,NB1PL 

BEAD (NREAD,1G30) (T Hi BL (IN , J N) , IN= 1 , NPPP) 
152 WRITE (NWRIT, 1040) (TH1 BL (IN , JN) , TN= 1 , NPPP) 
WRITE (NWRIT, 1 356) 

DO 154 JN=1,NBLPL 

READ (NREAD, 1''30) (T H2BL (IN , JN) , IN= 1 , NPPP) 
154 WRITE (NWRIT, 1040) (TH2BL (IN , JN) , I N= 1 , NPPP) 

156 IF (LETEAN. EQ.O) GO TO 157 
WRITE (NWRIT, 1 358) 

READ (NREAD,1030) (BETALE( JN) , JN=1 , NBLPL) 
WRITE (NWRIT, 1040) (BETALE(JN) ,JN=1, NBLPL) 
WRITE (NWRIT, 1359) 

■ READ (NREAD,1030) (BETATE(JN) ,JN=1 , NBLPL) 
WRITE (NWRIT, 1040) (BETATE(JN) ,JN=1, NBLPL) 

157 IP (NOSTAT. EQ.O) GO TO 160 
WRITE (NWRIT, 1 360) 

READ (NREAD,1030) (Z HST ( I) , 1= 1 , NOSTAT) 
WRITE (NWRIT, 1040) (ZHST (I) ,1=1, NOSTAT) 

IF (LBOT.EQ.O) GO TO 158 
WRITE (NWRIT, 1 365) 

READ (NREAD,1030) (R HST ( I) , 1= 1 , NOSTAT) 
WHITE (NWRIT, 1040) (RHST (I) ,1=1, NOSTAT) 

158 WRITE (NWRIT, 1 370) 

READ (NREAD,1030) (ZTST (I) , 1= 1 , NOST AT) 
WRITE (NWRIT, 10 40) (ZTST (I) ,1=1, NOSTAT) 

IF (LROT.EQ.O) GO TO 160 
WRITE(NWRIT,1375) 

READ (HREAD,1030) (RTST (I) ,1=1 , NOSTAT) 
WRITE(NWRIT,1040) (RTST(I) ,1=1, NOSTAT) 

160 IF (NSL.EQ.O) GO TO 165 
WRITE(NWRIT,1380) 

READ (NREAD,1030) (FLFR (I) , 1=1 , NSL) 
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WRITE (NHRIT, 1 
165 IF (NLOSS.EQ. 
WRITE (NWRIT,1 
READ (NREAD,1 
WRITE (NWRIT, 1 
WRITE (NWRIT, 1 
READ (NREAD,1 
WRITE (NWRIT, 1 
170 WRITE (NWRIT, 1 
READ (NREAD,1 
WRITE(KWPIT,1 
WRITE (NWRIT, 1 
IF (MM.LE.IOO 
1NIN.LE.50.AND 
2NOSTAT. LE. 50. 


040) (FLFR (I) ,T=1,NSL) 

0) GO TO 170 
385) 

(PERCRD(I) ,I=1,NLOSS) 
(PERCRD(I) ,I=1,NLOSS) 


030) 

040) 

386) 

0 30) 

040) 

390) 

010 ) 

020 ) 

070) 

. AND.HHT.LE.10C. AND.HHOB.LE.50. AND.NTIP.LE.50.AND. 
.HOOT. LE. 50. AND. NBLPL. LE. 50. AND. NPPP. LE. 50. AND. 
AND.NSL.LE. 50. AND. NLOS S . LE . 50 . AND. LSFR . GB . 0 . AND. 


(PERLOS(I) ,T=1 ,NLOSS) 

(PERLOS(I) ,I=i ,NLOSS) 

IMESH,ISLINE,ISTATL,IPLOT, ISaPER,ITSON, IDEBOG 
IMESH, I8LINE, ISTATL, IPLOT, ISOPER , ITSON, I DEBUG 


3 LSFR. LB. 1 . AND. LTPL.GE.O. AND.LTPL. LE. 1 . AND.LAHVT. GE.P. AND. 
4LAHVT. LE. 1 . AND.LROT. GE. 0 . AND. LROT.LE. 1 . AND. LBLAD. GE.O . AND. 
5LBLAD.LE.2.AND.LETEAN.GE.0. AND. LETEAN.LE. 1) GOTO 180 
WRITE (NWRIT, 1 400) 

STOP 


--CALCULATE HISCELLANEOUS CONSTANTS 

180 HflNI = MM-1 
MHTP1= (1HT+1 
EXPON= 1. /(GAM-1.) 

CP = AR*GA«*EXPON 
TGROG= 2 .*GAH*AR/ (GAM+1 . ) 

PITCH= 2.*3. 1415927/FLOAT(NBL) 

MSFL = MSFL/FLOAT (NBL) 

C 

C--CALCULATE VALUES FOE RHIN, RTIN , PHOOT, AND RTODT 
C — IF ROTATION IS NOT USED 
C 

IF (LROT.NE.O) GO TO 200 

CALL SPLINT (ZHUB , RHUB, NHUB , ZHIN, 1 , RHIN, DYDX,D2YDX2) 
CALL SPLENT (ZHODT, 1 , RHOOT, DYDX, D2YDX2) 

CALL SPLINT (ZTIP , RTIP , NTIP, ZTIN, 1 , RTIN, DYDX, D2YDX2) 
CALL SPLENT (ZTOOT, 1 , RTODT, DYDX, D2YDX2) 

C 

C--CALCULATE ESTIMATED UPSTREAM AND DOWNSTREAM VALDES OF 
C--STREAH FUNCTION, IF RADIUS WAS GIVEN AS INPUT 
C 

200 IF (LSFR. EQ.O. AND. LAMVT. EQ.O) GO TO 320 
EINSQ = RTIN**2-RHIN**2 
RODTSQ = RTODT**2-RHOUT**2 
IF (LSFR. EQ.O) GO TO 230 

IP ( RI NS Q* RODTSQ. EQ.O.) WRITE (NHRIT , 1 410 ) 

IF (RINSQ*RODTSQ. EQ.O.) STOP 
DO 210 J=1,NIN 

210 SFIN(J) = (RADIN (J) •*2-RHIN**2) /RINSQ 
DO 220 J=1 ,NOUT 

220 SFODT(J) = (RADODT(J) **2-RH0DT**2) /RODTSQ 
GO TO 260 
C 

C — CALCDLATE ESTIMATED OPSTREAM AND DOWNSTREAM VALDES OF 
C--RADIOS, IF STREAM FUNCTION WAS GIVEN AS INPDT 
C 

23C DO 240 J=1,NIN 
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24C RADIN(J) = SQRT (RHTN**2 + SFIN (J) *RINSQ) 

DO 250 J=1,NOUT 

250 RADOUT(J) = SQRT (RHOOT**2+ S FOOT { J) * ROOTSQ) 

C 

C--CALCULATE ESTIMATED UPSTREAM AND DOWNSTREAM TANGENTIAL VELOCITIES, 
C--IF WHIRL WAS GIVEN AS INPUT 
C 

260 IF (LAMVT.EQ.1) GO TO 290 
DO 270 J=1,NIN 

270 VTHIN(J) = LAMIN (J) /RADIN(J) 

IF (LSFR.EQ.1) LAMVT=1 
IF (MBI.EQ.O) RETURN 
DO 280 J=1,NOUT 

280 VTHOOT(J) = LAMODT (J) /R ADOUT (J) 

GO TO 320 
C 

C--CALCULATE ESTIMATED UPSTREAM AND DOWNSTREAM WHIRL, 

C — IF TANGENTIAL VELOCITY HAS GIVEN AS INPUT 
C 

290 DO 300 J=1,NIN 

300 LAMIN (J) = RADIN (J) *VTHIN(J) 

IF (MBI.EQ.O) RETURN 
DO 310 J=1,NOUT 

310 LAMODT(J) = RADOUT (J) * VTHOUT (J) 

C 

C--CALCULATE TANGENTIAL THICKNESS, IF NORMAL THICKNESS GIVEN AS INPUT 

320 IF (MBI.EQ.O) RETURN 

IF (LBLAD.EQ.1) GO TO 370 
IF (LBLAD.EQ. 2) GO TO 390 
DIST(1) = 0. 

DO 360 JN=1,NBLPL 
DO 330 IN=2,NPPP 

330 DIST(IN) = DIST (IN-1) +SQRT ( (ZBL (IN, JN) -ZBL(IN-1 ,JN) ) **2* 

1 (RBL (IN, JN) -RBL (IN-1 , JN) ) ** 2 ) 

IF (LETEAN. EQ. 1) GO TO 340 

CALL SPLINE (DIST,THBL(1 ,JN) , NPPP,DTDS, ANG) 

GO TO 350 

340 DTHDSL = T AN ( BETALE (JN) /57 . 295780) /RBL ( 1 ,JN) 

DTHDST = TAN(BETATE(JN)/57.295780)/RBL(NPPP,JN) 

CALL SPLISL (DIST,THBL (1 , JN) , N PPP , DT HDSL , DTHDST, DTDS , A NG) 

350 DO 360 IN=1,NPPP 

ANG(IN) = ATAN (RBL(IN, JN)*DTDS (IN) ) 

360 TTBL(IN,JN) = TNBL ( IN, JN) /COS (ANG ( IN) ) /RBL (IN, JN) 

--CALCULATE BLADE SURFACE THETA COORDINATES, IF THEY ARE NOT 
— GIVEN AS INPUT 

370 DO 380 JN=1,NBLPL 
DO 380 IN=1,NPPP 

TH1BL(IN,JN) = THBL(IN,JN)+TTBL(IN,JN)/2. 

380 TH2BL(IN,JN) = THBL (IN, JN) -TTBL (IN, JN) /2. 

RETURN 
C 

C--CALCULATE MEAN CAMBER LINE THETA COORDINATES AND TANGENTIAL THICKNESS 
C--IF SURFACE THETA COORDINATES GIVEN AS INPUT 
C 

390 DO 400 JN=1,NBLPL 
DO 400 IN=1,NPPP 

THBL(IN,JN) = (TH1BL(IN,JN) ♦TH2BL(IN,JN))/2. 
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40C TTBL(IN,J»I) = TH1 BL (I N , JN) -TH2 BL (IN, JN) 

PETORN 

C 

C--FORMAT STATEMENTS 
C 

10C0 FORMAT (1H1//5CX,21 (1H*)/50X,1H*,7X,6HMERIDL,6X,1B*/50X,21H* PRO 
1GRAH TNPDT */50X, 2 1 (1 H*) ///) 

101C FORMAT (1615) 

1020 FORMAT (2X , 16 { 2X , 1 5) ) 

1030 FORMAT (8F10.5) 

1040 FORMAT (1X,8G16.7) 

1050 FORMAT (20A4) 

1060 FORMAT (1X,20A4) 

1070 FORMAT (1H1) 

1100 FORMAT (///4X,20HGENERAL INPUT DATA/7 X , 3HG AM , 1 4 X , 2H A R , 1 3 X , 
14HMSFL,11X,5HOMEGA,11X,6HREDFAC,10X,6HVELTOL, 10X, 4HFNEH, 1 1 X, 
24HDNEW) 

1102 FORMAT (///4X , 20HGEKER A L INPUT DATA/7X,3HGAM, 1 3X, 3HRHO, 1 3X, 
14HMSFL, 1 1 X, 5HOHEGA, 1 IX, 6HREDFAC, 1CX,6HVELTOL,10X,4HFNEW,11 X, 
24HDNEW) 

11C5 FORMAT (7X , 71 HVELTOL HAS BEEN REDUCED BY THE MINIMUM OF FN 
1EH OR DNEH TO = , 8X , 6HVELTOL/0 1 X , G1 6 . 7) 

1110 FORMAT (103H MBI MBO MM MHT NBL NHUB NTIP 

1 NIN NOUT NBLPL NPPP NOSTAT NSL NLOSS) 

1120 FORMAT (47H LSFR LTPL LAMVT LROT LBLAD LETEAN) 

1125 FORMAT (6X , 6HANGROT) 

113C FORMAT (///4X,29HHUB AND SHROUD INPUT D ATA/7X , 5 HZOH IN , 1 1 X , 

1 5HZOMBI, 1 1 X,5HZOMBO,10X,6HZOMOUT, 1 1X,5HR0MIN,11X,5HR0MBI, 1 IX, 

2 5HROMBO, 10X, 6HRCMOUT) 

1140 FORMAT (7X,11HZHUB ARRAY) 

1150 FORMAT (7X,11HRH0B ARRAY) 

1160 FORMAT (7X,11HZTIP ARRAY) 

1170 FORMAT (7X,11HRTIP ARRAY) 

118C FORMAT (///4X,21HUPSTREAM INPUT DATA/7X,4HZHIN, 1 IX, 4HZTIN, 

1 nX,4HRHIN,11X,4HPTIN) 

1190 FORMAT (7X,11HSFIN ARRAY) 

12CG FORMAT (7X,12HRADIN ARRAY) 

121C FORMAT (7X,10HTIP ARRAY) 

1220 FORMAT (7X,11HPRIP ARRAY) 

1230 FORMAT (7X,12HLAMIN ARRAY) 

1240 FORMAT (7X,12HVTHIN ARRAY) 

1250 FORMAT (///4X,23HDOHNSTBEAM INPUT DAT A/7X , 5HZHOUT , 1 OX , 5HZTOUT, 

1 1CX,5HRHOUT, 10X,5HRTOUT) 

1260 FORMAT (7X,12HSFODT ARRAY) 

1270 FORMAT (7X, 13HRADOUT ARRAY) 

1280 FORMAT (7X,11HPROP ARRAY) 

1290 FORMAT (7X , 1 3 HLOSOUT ARRAY) 

1300 FORMAT (7X , 1 3HLAMOUT ARRAY) 

1310 FORMAT (7X, 13HVTHOUT ARRAY) 

1320 FORMAT (///4X , 54HBLADE MEAN CAMBER LINE AND THICKNESS INPUT 
1 DATA/7X, 10HZBL ARRAY) 

1330 FORMAT (7X,10HRBL ARRAY) 

1340 FORMAT (7X,11HTHBL ARRAY) 

1350 FORMAT (7X,11HTNBL ARRAY) 

1352 FORMAT (7X,11HTTBL ARRAY) 

1354 FORMAT (7X,12HTH1BL ARRAY) 

1356 FORMAT (7X,12HTH2BL ARRAY) 

1358 FORMAT (7X, 1 3HBETALE ARRAY) 
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1359 FORMAT (7X , 1 3 HB ETAT E ARRAY) 

136C FORMAT (///4X , 3 1 HOOTPUT STATION LOCATION DAT A/7X , 11 HZHST ARRAY 

1 ) 

1365 FORMAT (7X,11HRHST ARRAY) 

1370 FORMAT {7X,11HZTST ARRAY) 

1375 FORMAT (7X,11HRTST ARRAY) 

138P FORMAT {///4X, 4C HOOTPnT STREAMLINE FLOW FRACTION DATA/7X , 1 1 HFL 
1FR ARRAY) 

1 385 FORMAT (///4X , 28 HD ISTR TBUTION OF LOSS DA T A/7X , 1 3 HPERCRD ARRAY) 
1386 FORMAT (7X , 1 3 H PE RLOS ARRAY) 

1390 FORMAT (///4X , 28 HOUTPOT PRINT CONTROL DAT A/6X , 48HI MESH ISLINE 
1ISTATL IPLOT ISUPER ITSON TDEBUG) 

14CC FORMAT (1H1 , 1 OX , 90H MM , MHT, NHUB,NTIP , NIN, NOUT, NBLPL, NPPP, NOST AT, NSL 
1 ,NLOSS, LSFR ,LTPL,LAMVT, LROT,LDLAD,OR LETEAN/1 3X , 25HIS TOO LARGE OR 
2 TOO SMALL) 

141C FORMAT ( 1 H 1 , 1 0 X , 74 HW HEN UPSTREAM AND DOWNSTREAM INPUT DATA ARE GTV 
1EN AS A FUNCTION OF R A DT US , / 1 1 X , 8 6 HTHER E MUST BE A CHANGE IN VALUE 

2 BETWEEN RHIN AND RTIN AND ALSO BETWEEN RHOUT AND RTOUT/1 1 X , 57HAND 

3 A CORRESPONDING CHANGE IN THE RADIN AND RADODT ARRAYS) 

END 


SUBROUTINE INPLOT 


C 

C- 

c- 

c 


-INPLOT PLOTS THE UPSTREAM AND DOWNSTREAM INPUT FLOW VARIABLES 
-AS WELL AS THE INPUT BLADE SECTIONS FROM HUB TO SHROUD 

COMMON/INPUTT/GAM, AH ,MSFI, OMEGA, RED’=' AC , V ELTOL, FN EW , DN EW , MB I , M BO , 

1 MM, HHT,NBL, NHUB, NTIP, NIN, NOUT, NBLPL, NPPP, NOSTAT, NSL, NLOSS , 

2 LSFR , LTPL, L A « VT , LROT , LBL AD, LETE A N, ANGROT, IMESH, ISL INE, 

3 ISTATL, I PLOT, ISUPER, ITSON, IDEBUG , ZOM IN , ZOMBI , ZOMBO , ZOMOUT , 

4 HOMIN,ROHBI ,RCHBO,ROMOUT ,ZHIN ,7T IN, ZHOUT,ZTOUT, RHIN, RTIN, RHOUT, 

5 RTOUT,TITLEI (20) ,ZHUB(50) ,RHUBv^0) ,ZTIP(5D) ,RTTP(5D) ,SFIN(50) , 

6 RADIN (50) ,TIP(50) ,PRIP(5C) ,LAMIN(5'') ,VTHIN(5C) ,SFODT(5D) , 

7 RADODT (50) , PROP (50) ,LOSOUT (5'' ) ,LAMOUT (50) ,VTHOUT (50) , 

8 BETALE(5C) ,BETATE(50) ,ZHST(50) ,ZTST(50) ,RHST(50) ,RTST(50) , 

9 FLFR (50) ,PERCRD (50) , PER LOS (50) ,Z3L(50,50) ,RBL (50,50) , 

1 THBL(50,50) ,TNBL(50,50) ,TTDL(50,50) , TH 1 BL (50 , 50) ,TH2 BL ( 50 , 50 ) 

COMHON/CALCON/MMH1 ,MHTP1 ,CP , EXPON , T GROG, PITCH, RLEH, RL ET, RT EH, RTET , 

1 ZLE(5C) ,RLE (50) ,ZTE (50) , RTE(50) , ZLEOM (1C 1) ,RLEOM (101) , 

2 SLEOM(IOI) ,THLEOM (101) ,ZTEOM(101) ,RTEOM(101) ,STEOM (101) , 

3 THTBOM (101) ,ILE (101) , ITE (1 0 1 ) , ZOM ( 100 , 10 1 ) , ROM ( 100 , 1 0 1) , 

4 SOM (IOC, 101) , TOM (1O0, 10 1) ,BTH (100,101) , DTHDS ( 1 00 , 1 0 1 ) , 

5 DTHDT (1 00, 1 01) ,PLOSS {100,101),CPHI(100,101),SPHI(100,101) 
DIMENSION MBL (5^ , 50) , RTHBL (50,50) , RTH1BL (50 ,50) , RTH2BL (50, 50) , 

1 RRTHBL (50, 50) , RTH 3 BL ( 50 , 50) , R TH4 BL ( 50 , 50) , 

2 PLTX (1C1) , PITY (101) ,DYDX (101) ,D2YDX2 (101) , 

3 TITLI (9) ,TITL2 (8) ,TITL3 (5) ,TITL4 (9) ,TITL5 (8) ,TITL6 (9) ,TITL7 (6) , 

4 TTTL8 (9) ,TITL10 (1 3) , TIT L1 1 (6) , TIT Li 2 (6) , TITLI 3 (4) , 

5 TITLI 4 (2) ,TITL15 (5) ,TITL16 (5) ,TITL17 (5) , TITLI 8 (5) , TITLI 9 (5) , 

6 TITL2C (5) ,TITL21 (5) ,TITL22 (5) ,TTTL24 (10) ,TITL25 (9) ,TITL26 (7) , 

7 TITL27 (2) ,TIT128 (2) 

BEAL MBL,LAMIN,LAMOUT,LOSOUT,LRNG 

DATA TITLI/* INL','ET A ' , * BSOL* , • UT E * , * TOT A* , ' L TE • , • MPER ’ , ' ATOR ' 


1 • E •/ 

DATA TITL2/’INLE* , *T AB ' , ' SOLU* , *TE T','OTAL*,' 


PRE', *SSUR*,'E 


I 
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1 / 

DATA TITL3/'INLE','T AB ' , * SOLO • , »TE W,«HIFL'/ 

AB' ,' SOLD' , »TB T' , » ANGE* , ' NTIA ' , ' L VE» 

DATA TITL5/'0UTL' , ' ET A ' , ' BSOL' , ' OTE 


V 

DATA TITL6/'OUTL' , ' ET 
1,'OSS •/ 

DATA TITL7/'ODTL', 'ET 
DATA TITLB/'OOTL' , 'ET 
1,'iTy '/ 

DATA TITL10/' INPD' , 'T 

1 'OH Z' , 'BL, ' , 'RBL, ' , ' 


'OTE 

A', 'BSOL', 'DTE 
A' ,'BSOL', 'DTE 


', 'TOTA' , 'L 
' , 'TOTA* , 'L 

'»HIR','L 


PR', ' ESSD' 
PR' , ' ESSD' 

'/ 


', 'TANG', 'ENTI', • AL V 


', 'SECT' ,« IONS', ' self , 'L2FR' 
. , THB','L, T','NBL •/ 

DATA TITL11/' B','LADE',' SEC ' , ' TION ' , • NO.'.'XXXX'/ 

DATA TITL12/'COMB','INED',» BLA','DE S ' , » ECT I ' , • ONS •/ 

DATA TITL13/'STRE','AN F ' , ' DNCT ' , ' ION '/ 

DATA TITLia/' RA','DIUS'/ 


DATA TITL21/'INPD', 


»T 

AR', ' RAY 


TI' , »P •/ 

»T 

AR', ' RAY 

• f * 

PR', 'IP •/ 


AR', • RAY 


LA', 'MIN •/ 

»T 

AR' , • RAY 


VT','HIN •/ 

*T 

AR», ' RAY 

• # ’ - 

PR', 'OP •/ 

•T 

AR' , • RAY 

• f * • 

LO* , 'SODT'/ 

»T 

AR', ' RAY 

’ F ’ - 

LA' , 'HODT'/ 

f T 

AR', ' RAY 

• # ' • 

VT' , 'HOOT'/ 


LOS','S DI' , 'STRI», »bDTI' , 'ON 


UAIA TITL24/' BLAD' , ' E S ' , ' ECTI ' , ' ON ' , » HERI • , » DION 
1 'COOR' , 'DINA' , 'TE '/ 

DATA TITL25/'TANG','ENTI','AL C ' , ' OORD ' , » INAT ' »E 
1 ' DS*T' , 'BETA'/ ' 

DATA TITL26/'PRES' , 'SORE', 

DATA TITL27/' PERC , ' RD '/ 

DATA TITL28/'PER1' , 'OS '/ 

DATA BLNK/' •/ 

DATA SYM/'X'/ 

IF (IPLOT.LE.O) RETDRN 

--PLOT TITLE ON HICROFILH 

CALL LRSIZE(0. 0,20. 0,0. 0,10.0) 

CALL LRCHSZ(4) 

CALL LRLEGN(TITLEI, 80,0, 1.0,5. 0,1.0) 

CALL LRCHSZ(2) 

CALL LRSIZE(0.0, 10.0,0.0,10.0) 

CALL LRNON 
CALL LRXLEG (BLNK, 1) 

CALL LRMOFF 


' AL • 
' , ' RADI ' 


-PREPARE FOR PLOTTING OF INLET CONDITIONS 

IF (LSFR.EQ.1) GO TO 20 
PLTY(1) = SFIN(1) 

PLTY(IOI) = SFIN(NIN) 

DEL = (SFIH (NIN) -SFIH(I) )/100. 

DO 10 J=2,100 

10 PLTY(J) = PLTY (J-1) +DEL 

BHNG = AMIN1 (SFIN (1) ,SFODT (1) ) 

TRNG = AHAX1 (SFIN(NIN) ,SFODT(NODT) ) 

GO TO 40 

20 PLTY(I) = BADIN(I) 


•LOCI' 

'PE * 

'RE L* 

'BLOC 
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PLTy(ld) = RADIN(NIN) 

DEL = (RADIN{NIN) -RADIN(1))/100. 

DO 30 J=2,100 

30 PLTY (J) = PLTY (J-1) ♦DEL 

BRNG = AHIN1 (RADIN (1) ,RADOOT (1) ) 

TRNG = AMAX1 (RADIN (NIN) ,RADODT(NOrjT) ) 

40 CALL LRANGE (0 . ,0 . ,BRNG,TRNG) 

— PLOT INLET ABSOLUTE TOTAL TEHPEPATORE 

IF (LSFR.EQ.O) CALL SPLI NT (SFIN ,TIP , NIN , PLTY , 10 1 , PLTX , DYDX , 
1D2YDX2) 

IF (LSFR.EQ.1) CALL S PLI NT (R ADI N ,TTP, NIN , PLTY , 101 , PLTX, DYDX , 
1D2YDX2) 

CALL LRMRGN (1 .0, 1.0,2.0,1.C) 

CALL LHGRID (1 , 1, 1 1.0, 1 1 .0) 

CALL LRCHSZ(4) 

CALL LRLEGN (TITL1,36,C, 1 .0,0. 5, 0.0) 

CALL LRCHSZ (2) 

CALL LRLEGN (T ITL 1 5 , 20 , 0 , 4. C , 1 . 3 , 0 . 0) 

IF (LSFR.EQ.O) CALL LRLEGN (TITL 1 3 , 1 6, 1 , 0 . 2, 4 . 2, 0 . 0 ) 

IF (LSFR.EQ.1) CALL LRLEGN (TITL 1 4 , 8 , 1 , 0 . 2 ,4 . 7 ,0 . 0) 

CALL LRCHSZ (4) 

CALL LRCURV (PLTX, PLTY, 101 ,2 ,SYM,0.0) 

IF (LSFR.EQ.O) CALL LRCURV (TIP, SFIN , NIN , 4 , SYH, 1 . 0 ) 

IP (LSFR.EQ.1) CALL LRCURV (TIP, R ADI N, NIN, 4 , SYH, 1 . 0) 

-PLOT INLET ABSOLUTE TOTAL PRESSURE 

IF (LSFR.EQ.O) CALL SPLI NT (SFIN, PBI P, NI N, PLTY, 10 1 , PLTX, DYDX , 
1D2YDX2) 

IF (LSFR.EQ.1) CALL SPLINT (RADIN, PRIP, NIN, PLTY, 101, PLTX, DYDX, 
1D2YDX2) 

CALL LRLEGN (TITL2 , 32 ,0 , 1 . 6 , 0 . 5, 0 . 0) 

CALL LRCHSZ (2) 

CALL LRLEGN (TITL16,20,0,4.0,1.3,0.0) 

IF (LSFR.EQ.O) CALL LRLEGN ( TITL 1 3 , 1 6 , 1 , 0 . 2 , 4 . 2 , 0 . 0) 

IF (LSFR.EQ.1) CALL LRLEGN (TITLI 4 ,8 , 1 , C . 2 , 4 . 7, 0 . 0) 

CALL LRCHSZ (4) 

CALL LRCURV (PLTX, PLTY, 101,2 , SYH, 0.0) 

IF (LSFR.EQ.O) CALL LRCURV (PRIP, SFI N, NIN, 4, SYH, 1 . 0) 

IF (LSFR.EQ.1) CALL LRCURV (PRIP, RADIN, NIN, 4 , SYH, 1 .0) 

-PLOT INLET ABSOLUTE WHIRL 

IF (LAHVT. EQ. 1) GO TO 80 

IF (LSFR.EQ.O) CALL SPLINT (SPIN, LAHIN, NIN, PLTY, 10 1 , PLTX , DYDX , 
1D2YDX2) 

IF (LSFR.EQ.1) CALL SPLINT ( RADI N, LA HIN, NIN, PLTY , 10 1 , PLTX, D YDX, 
1D2YDX2) 

CALL LRLEGN (TITL3 , 20 , 0 , 2 . 5 , 0 . 5, 0 . 0) 

CALL LRCHSZ (2) 

CALL LRLEGN (TITL 17 , 20 , 0 ,4. 0 , 1 . 3 , 0 . 0 ) 

IP (LSFR.EQ.O) CALL LRLEGN (TITL 1 3 , 1 6, 1 , 0 . 2 , 4 . 2, 0 . 0) 

IF (LSFR.EQ.1) CALL LRLEGN (TITLi 4 , 8 , 1 ,0 . 2 ,4 . 7, 0 . 0) 

CALL LRCHSZ (4) 

CALL LRCURV (PLTX, PLTY, 1 0 1 , 2 , SYH, 0 . 0) 

IF (LSFR.EQ.O) CALL LRCURV (LAMI N, SFIN, NIN, 4 , SYH, 1 . 0) 

IF (LSFR.EQ.1) CALL LRCURV (LAHIN, RADIN, NIN, 4 , SYH, 1 .0) 


GO TO lie 


C 

C--PLOT INLET ABSOLUTE TANGENTIAL VELOCITY 
C 


8G IF (LSF8.EQ.0) 
1 D2YDX2) 


:ALL splint (SPIN, LABIN,NIN, PLTY, 1C1 , PLTX, DYDX , 


ICC IF 


If (LSrR.EQ.1) CALL S PLI NT ( R A DI N , LA MIN, NIN , PLTY • 1 0 1 , PLTX . D YDX 
1D2YDX2) » 

CALL LRLEGN {T ITL4 , 36 , C , 1 . 1 , 0 . 5 , 0 . 0) 

CALL LRCHSZ (2) 

CALL LRLEGN (T ITL 1 B , 20 , 0 , 4 . C , 1 . 3 , C . 0 ) 

IF (LSFR.EQ.O) CALL LR L EGN (T TTL1 3 , 1 6 , 1 , 0 . 2 , 4 . 2, 0 . 0) 

IF (LSFR.EQ.1) CALL LR LEGN (TITL 1 4 , 8 , 1 , 0 . 2 , 4 . 7, 0 . 0) 

CALL LRCHSZ (4) 

RINSQ = RTIN**2-RHIN**2 
DO ICO 1 , 10 1 

IF (LSFR.EQ.O) PLTX (J) =PLTX (J) /SQRT (RHIN**2*PLTY (J) *RTNSQ) 

IF (LSFR.EQ.1) PLTX (J) =PLTX (J) /PLTY (J) 

CALL LRCDRV (PLTX, PLTY, 101,2,SYM,0.0) 

IF (LSFR.EQ.O) CALL LRCURV ( VTHI N , S FIN, NTN, 4 , S YM , 1 . 0) 

IF (LSFR.EQ.1) CALL LRCURV ( VTHIN , R A DIN , NIN, 4 , SYH , 1 . 0) 


C--PREPARE 

C 


FOR PLOTTING OF OUTLET CONDITIONS 


lie IF (LSFR.EQ.1) GO TO 1 3C 
PLTY(1) = SFOUT(I) 

PL'^Y(ICI) = SFOUT(NOUT) 

DSL = (SFOUT(NOUT) -SFOUT (1) )/100. 

DO 120 J = 2, 100 
120 PLTY (J) = PLTY (J-1) +DEL 

GO TO 150 

130 PLTY (1) = RADOUT (1) 

PLTY (101) = RADOUT(NOUT) 

DEL = (RADOUT (NOUT) -RADOUT (1) )/100. 
DO 140 J = 2, 100 
14C PLTY(J) = PLTY (J-1) +DEL 
C 

C--PLOT OUTLET ABSOLUTE TOTAL PRESSURE 
C 


150 IF (LTPL.EQ.1) GO TO 170 

IF (LSFR.EQ.O) CALL SPLI NT ( SFOUT, PROP, NOOT, PLTY , 1 0 1 .PLTX , DYDX 
1D2YDX2) 

IF (LSFR.EQ.1) CALL SPLINT (RADOUT, PROP, NOUT, PLTY , 1 0 1 , PLTX . DYDX 
1D2YDX2) » r , , 

CALL LRLEGN (TITL5, 32, 0,1. 5, 0.5, 0.0) 

CALL LRCHSZ (2) 


CALL LRLEGN (TITL 19, 20, 0,4. 0,1. 3, 0.0) 

IF (LSFR.EQ.O) CALL LRLEGN (TITL 1 3 , 1 6 , 1 , 0 . 2, 4 . 2 , 0 . 0 ) 

IF (LSFR.EQ.1) CALI LRLEGN (TITL14, 8, 1,0. 2, 4. 7, 0.0) 

CALL LRCHSZ (4) 

CALL LRCDRV (PLTX, PLTY, 1 0 1 ,2 , SYH, 0.0) 

IF (LSFR.EQ.O) CALL LRCURV ( PROP, SFOUT, NOUT, 4 , SYH, 1 . C) 
IF (LSFR.EQ.1) CALL LRCURV (PROP, RADOUT, NOUT, 4, STM, 1 .0) 
GO TO 190 


C 

C--PLOT OUTLET ABSOLUTE TOTAL PRESSURE LOSS 
C 


17C IF (LSFR.EQ.O) CALL SPLINT (SFOUT, LOSOOT, NOUT, PLTY , 1 01 , PLTX , DYDX , 
1D2YDX2) 

IF (LSFR.EQ.1) CALL SPLINT ( RADOUT, LOSOOT, NOUT, PLTY, 10 1 , PLTX , DYDX , 
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1D2YDX2) 

CALL LRLEGN {TITL6, 36 , 0 , 1 .0 , 0 . 5, 0 . 0) 

CALL LRCHSZ(2) 

CALL LRLEGN (T ITL20 , 20 , 0 , 4. 0 , 1 . 3 , 0 . 0 ) 

IF (LSFR.EQ.O) CALL LRLEGN (TITL1 3 , 1 6 , 1 , C . 2 , 4 . 2, 0 . 0) 

IF (LSFR.EQ.1) CALL LRLEGN (TITL 1 4 , 8 , 1 , 0 . 2 ,4 . 7, 0 . 0) 

CALL LRCHSZ (4) 

CALL LRCURV (PLTX,PLTY, 10 1,2 ,SYM,0. 0) 

IF (LSFR.EQ.O) CALL LRCURV ( LOSOUT , SFOUT , NOIIT, 4 , SYM , 1 . 0) 

IF (LSFR.EQ.1) CALL LRCOEV ( LOSOUT, R ADOUT, NOUT, 4 , SYM , 1 . 0 ) 

19C CALL LRCHSZ (0) 

IF (MBI.EQ.O) GO TO 240 

--PLOT OUTLET ABSOLUTE WHIRL 

IF (LAMVT.EQ.1) GO TO 210 

IF (LSFR.EQ.O) CALL SPL INT ( SFOUT , LA MOUT, NOUT, PLTY , 1 0 1 , PLTX , DYDX , 
1D2YDX2) 

IF (LSFR.EQ.1) CALL SPLINT(RADOUT,LAMOUT, NOUT, PLTY, 101, PLTX, DYDX 
1D2YDX2) 

CALL LRCHSZ (4) 

CALL LRLEGN (TI TL7 , 24 , 0 , 2 . 0 , 0 , 5 , 0 . 0 ) 

CALL LRCHSZ (2) 

CALL LRLEGN (TITL21, 20,0,4.0,1.3,0.0) 

IF (LSFR.EQ.O) CALL LRL EGN (TITL 1 3 , 1 6 , 1 , P . 2 , 4 . 2 , 0 . 0) 

IF (LSFR.EQ.1) CALL LRLEGN (TITLi 4 , 8 , 1 , 0 . 2 ,4 . 7, P . 0) 

CALL LRCHSZ (4) 

CALL LRCURV ( PLTX , PLT Y , 1 0 1 , 2 , SY M , 0 . 0) 

IF (LSFR.EQ.O) CALL LRCURV ( LA MOUT , S FOOT , NOUT , 4 , SYM, 1 . 0) 

IF (LSFR.EQ.1) CALL LRCURV ( LA MOUT, R ADOUT , NOUT, 4 , SYM , 1 . 0) 

GO TO 240 

--PLOT OUTLET ABSOLUTE TANGENTIAL VELOCITY 

210 IF (LSFR.EQ.O) CALL S PLI NT (SFOUT , LA MOUT, MOOT, PLTY , 1 C 1 , PLTX , DYDX , 
1D2YDX2) 

IF (LSFR.EQ.1) CALL S PLI NT ( RADOUT, LA MOUT, NOUT , PLTY , 10 1 , PLT X, DYDX 
1D2YDX2) 

CALL LRCHSZ (4) 

CALL LRLEGN (T ITL8, 36 , C , 1 .0 , 0 . 5, 0 . C) 

CALL LRCHSZ (2) 

CALL LRLEGN (T ITL22 , 20 , 0 , 4 . P , 1 . 3 , 0 . 0) 

IF (LSFR.EQ.O) CALL LRLEGN (TITLi 3 , 1 6 , 1 , 0 . 2, 4 . 2, 0 . 0) 

IF (LSFR.EQ.1) CALL LRL EGN (TITL 1 4 , 8 , 1 ,0 . 2 , 4 . 7, 0 . 0) 

CALL LRCHSZ (4) 

EOUTSQ = RTOUT**2-RHOUT**2 
DO 230 J=1, 101 

IF (LSFR.EQ.O) PLTX (J) =PLTX (J) /SQRT (BHOUT**2 + PLTY (J) +ROUTSQ) 

230 IF (LSFR.EQ.1) PLTX (J) =PLTX (J) /PLTY (J) 

CALL LRCURV (PLTX, PLTY, 10 1,2, SYM, 0.0) 

IF (LSFR.EQ.O) CALL LRCURV (VTHOHT , S FOOT , NOUT , 4 , SYM, 1 . 0 ) 

IF (LSFR.EQ.1) CALL LRCURV ( VTHOUT, R ADOUT, NOUT ,4 ,SYM , 1 . 0 ) 

-PLOT PERCRD AND PERLOS 

240 IP (NLOSS.EQ.O) GO TO 248 
LRNG = PERCRD (1) 

RRNG = PERCRD (NLOSS) 

BRNG = PERLOS (1) 
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TRHG = PERLOS (NLOSS) 

DO 242 1=1, NLOSS 

LRNG = AMIN1 (LRNG,PERCRD(r) > 

HRNG = AMAX1 (RRNG,PERCRD (I) ) 

BRNG = AHIN1 (BRNG, PERLOS (I) ) 

242 TRNG = AMAX1 (TRNG, PERLOS (I) ) 

PLTX(1) = PERCRD{1) 

PLTX(IOI) = PEBCRD (NLOSS) 

DEL = (PERCRD(NLOSS) -PERCRD(1)) /ICO. 

DO 244 1=2,100 
244 PLTX(I) = PLTX (1-1) +DEL 

CALL SPLINT (PERCRD, PERLOS, NLOSS, PLTX, 10 1, PLTY,DYDX, D2YDX2) 
CALL LRANGE(LBNG,RENG, BRNG, TRNG) 

CALL LRCHSZ(4) 

CALL LRLEGN (TITL26 , 28 , 0 , 1 . 7 , 0 . 5 , 0 . 0) 

CALL' LRCHSZ (2) 

CALL LRLEGN (TITL27 ,8 ,0 , 4 , 7 , 1 . 3, 0 . 0) 

CALL LRLEGN (TITL28,8 , 1 , 0 .2, 4 . 7, 0 . 0) 

CALL LRCHSZ (4) 

CALL LRCORV (PLTX,PLTY, 1 0 1, 2 , SYM , C . 0) 

CALL LRCURV (PERCRD, PERLOS, NLOSS , 4 , S YM, 1 . 0) 

CALL LRCHSZ (0) 

--PLOT INPDT BLADE SECTIONS 

248 IF (HBI.EQ.O) RETORN 

C — CALCULATE BLADE SECTION PLOT COORDINATES ALONG MERIDIONAL PLANE 
DO 250 JN=1,NBLPL 
HBL(1,JN) = ZBL (1,JN) 

DO 250 IN=2,NPPP 

250 HBL(1N,JN) = MBL (IN-1 , JN) +S QRT ( (ZBL (IN, JN) -ZBL (IN-1 ,JN) ) **2 + 
1 (RBL (IN, JN) -RBL (IN-1,JN) )**2) 

C--CALCDLATE TANGENTIAL PLOT COORDINATES 
DO 260 JN=1,NBLPL 
DO 260 IN=1,NPPP 
DELRTH = RBL(IN, JN) *PITCH 
RTHBL(IN,JN) = RBL (IN, JN) *THBL (IN, JN) 

RTH1BL(IN, JN) = RBL (IN, JN) *TH1BL (IN, JN) 

RTH2BL (IN, JN) = RBL (IN, JN) *TH2BL (IN, JN) 

RRTHBL(IN, JN) = RTHBL ( IN ,JN) +DELRTH 
RTH3BL(IN, JN) = RTH1 BL (IN, JN) +DELRTH 
260 RTH4BL(IN,JN) = RTH2BL (IN, JN) +0ELRTB 
C— CALCULATE RANGE OF PLOTS, AND SET UP FOR PLOTTING INDIVIDUAL 
C— BLADE SECTIONS 

LRNG = HBL(1,1) 

RRNG = MBL (NPPP, 1) 

BRNG = HTH2BL (1, 1) 

TRNG = HTH3BL (NPPP, NBLPL) 

DO 270 JN=1, NBLPL 

LRNG = AMIN1 (LRNG, MBL (1 ,JN) ) 

BRNG = AMAX1 (BRNG, MBL (NPPP, JN)) 

DO 270 IN=1,NPPP 

BRNG = AHIN1 (BBNG,RTH2BL(IN,JN) ) 

270 TRNG » AHAX1 (TRNG,RTH3BL(IN,JN) ) 

RRTEH = BRNG 

DELLB = BBNG-LRNG 

DELBT = TRNG-BRNG 

0ELBN6 « AHAX1 (DELLB, DELBT) 

RBN6 = LBNG-^DELRNG 
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TRNG = BBNG+DEIRNG 

CALL LRANGE (LRNG,ERNG, BRNG,TRNG) 

C--PLOT BLADE SECTIONS AND SHOW SOLIDITY 
CALL LRCHSZ(4) 

CALL LRLEGN (TITL 1 0 , 52 ,0 , 2. 7 ,C . 7 , 0 . 0 ) 

DO 280 JN=1,NBLPL 
CALL LRCHSZ (3) 

CALL LRCNVT (JN, 1 ,TITL11 (6) , 1,4,0) 

CALL LRLEGN (TITL 1 1 , 24 , 0 , 3 . 0 , 9 . 5 , 0 . 0) 

CALL LRCHSZ (2) 

CALL LRLEGN (TITL24 ,40 , 0 , 2. 8 , 1 . 3 , 0 . 0 ) 

CALL LRLEGN (T ITL25 , 36 , 1 , 0. 2 , 3 . 3 , 0 . 0) 

CALL LRCHSZ (4) 

CALL LRCORV (HBL { 1 , JN) , RTHBL (1,JN) ,NPPP, 2,SYH,0. 0) 

CALL LRCORV (MBL(1,JN) ,RTH1 BL (1 , JN) , NPPP,2,SYH,0.0) 
CALL LRCORV (M BL ( 1 , JN ) , RTH2BL (1 , JN) , N PPP , 2 , SYM, 0 . 0) 
CALL LRCORV (HBL(1,JN) , RRTHBL ( 1 , JN) , NPPP, 2 ,S YH, 0 . 0 ) 
CALL LRCORV (MBL(1,JN) , RTH3 BL ( 1 , JN) , NPPP, 2,SYH,0 . 0) 
CALL LRCURV{MBL(1,JN) , RTH4 BL ( 1 , JN) , N PPP, 2 , SY M,0 . 0) 

IF {LBLAD.EQ.2) GO TO 275 

CALL LRCORV (MBL (1 ,JN) , RTHBL (1,JN) , NPPP , 4 , SYH, 0 . 0) 

CALL LRCORV (MBL (1 , JN) , RRTHBL ( 1 , JN) , NPPP, 4 , S YH, 1 . 0) 

GO TO 280 

275 CALL LRCORV (MBL (1,JN) ,RTH1BL (1,JN) , NPPP, 4, SYM, 0.0) 
CALL LRCORV (MBL (1,JN) , RTH2 BL ( 1 , JN) , NPPP, 4 , S YH, 0 . 0) 
CALL LRCORV(MBL(1,JN) ,RTH3BL (1 , JN) , NPPP,4,SYM,0.0) 
CALL LRCORV (MBL(1 ,JN) , RTH4 BL ( 1 , JN) , NPPP,4,SYH, 1 .0) 

280 CONTINOE 

C--CALCOLATE RANGE OF PLOT, AND SET OP FOE PLOT OF MOLTIPLE 
C— BLADE SECTIONS 
RRNG = RRTEM 

TRNG = RTH1BL(NPPP,NBLPL) 

DO 290 JN=1 ,NBLPL 
DO 290 IN=1,NPPP 

290 TRNG = AMAX1 (TRNG,RTH1 BL (IN,JN) ) 

DELBT = TRNG-BRNG 

DELRNG = AMAX1 (DELLR , DELBT) 

RRNG = LRNG^DELRNG 
TRNG = BRNG+DELRNG 
CALL LRANGE (LRNG, RRNG, BRNG, TRNG) 

C--PLOT MOLTIPLE BLADE SECTIONS 
CALL LRGRID(3,3,11.0,11.0) 

CALL LRCHSZ (3) 

CALL LRLEGN (TITL 12 , 2 4 , 0 , 3. 4 , 9 , 5 , 0 . 0 ) 

CALL LRCHSZ (2) 

CALL LRLEGN (TITL24 ,4C , 0 , 2. 8 , 1 . 3 , 0 . 0 ) 

CALL LRLEGN (TITL 25, 36, 1,0. 2, 3. 3, 0.0) 

CALL LRCHSZ (4) 

EOP = 0.0 

DO 300 JN=1,NBLPL 

IF (JN.EQ. NBLPL) EOP=1.Q 

CALL LRCORV (MBL (1 , JN) , RTHBL (1 ,JN) , NPPP, 2, SYM, 0.0) 

CALL LRCORV (MBL (1,JN) , RTH1 BL (1 , JN) , NPPP, 2, SYH, 0.0) 

30C CALL LRCORV (MBL(1,JN) ,RTH2BL(1,JN) , NPPP, 2, SYH, EOP) 
CALL LRCORV (ZBL,RBL, 0,1 , SYM, 1.0) 

CALL LRCHSZ (0) 

RETOHN 

END 
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SUBROUTINE MESHO 


--MESHO CALCULATES COORDINATES OF AN ORTHOGONAL MESH 

--COVERING THE SOLUTION REGION 

COMMON/INPUTT/GAM, AR,MSFL,OMFGA, REDFAC, VELTOL,FNEN,DNEW,MBI, HBO, 

1 HM,HHT,NBL,NHUB,NTIP,NIN,NOUT, NBLPL, NPPP, NOSTAT, NSL, NLOSS , 

2 LSFR,LTPL,LAf1VT,LR0T,LBLAD,LETEAN, ANGROT, TMESH,ISLINE, 

3 ISTATL,IPLOT,ISnPER,ITSON,IDEBUG,ZOMIN,7,OHBI,ZOMBO,ZOMOUT, 

4 ROMIN,ROMBI,ROMBO,ROMOUT,ZHTN,ZTTN,ZHOUT,ZTOUT,RHIN,RTIN,RHOUT, 

5 RTOUT,TITLEI (20) , ZHUB (50 j ,RHUB(50) , ZTIP (50) , RTIP (50) , SF IN (50 ) , 

6 RADIN (5G) ,TIP (50) ,PRIP (50) ,LAHIN (50) ,VTHIN(50) ,SFOUT(50) , 

7 RADOUT(50) ,PROP(50) ,LOSOUT(5'') ,LA(1OUT(50) ,VTHODT (50) , 

8 BETALE (50) ,BETATE (50) ,ZHST (50) ,ZTST (50) , RHST (50) ,RTST(50) , 

9 FLFR(50) ,PERCRD(50) ,PERLOS(5'') ,ZBL(50,50) ,RBL(50,50) , 

1 THBL(50,50) ,TNBL( 50,50) ,TTBL(5C,50) , THi BL (50 , 50) ,TH2BL ( 50 , 50 ) 

COMMON/CALCON/MHM1, MHTP1 ,CP, EXPON,TGROG,PITCH,RLEH,FLET,RTEH,RTET, 

1 ZLE (50) ,RLE (50) ,ZTE (50) ,FTE(5 0) ,ZLFOH (1C1) ,RLEOM (101) , 

2 SLEOM (101) ,THLEOH (101) ,ZTEOM (101) , RTEOH (101) ,STEOM (101) , 

3 THTEOM (1 01 ) , ILE (10 1) ,ITE(101) ,ZOM(1C0,101) , ROM (ICC ,101) , 

4 SOM(100,101),TOM(100,101),BTH(10O,101) ,DTHDS (100,10 1), 

5 DTHDT (100, 101) ,PLOSS (100, 101) ,CPHI (100, If' 1) ,SPHI (100,101) 
COMMON/ROTATN/ZHROT (50) ,RHROT(50) ,ZTROT(50) ,RTROT(50) , 

1 ZLEOMR (101) ,RLEOHR (101) ,ZTEOMR(101) ,RTEOMR(1C1) , 

2 ZBLROT(5C,50) , RBLROT (50 , 50) , ZOMROT ( 1 00 , 1 0 1 ) ,ROMROT ( 1 00 , 1 0 1 ) 
DIMENSION ZRAD (50,101) ,RRAD (50,101) ,Z1 (100) , R1 (100) , 

1 ZNOR(2) ,RNOR (2) ,SLOM ( 100 ) , AA A ( 1 00) ,BBB (ICO) 

--ROTATE HUB AND TIP COORDINATES 

CALL ROTATE (A NGHOT , ZHUB , RHUB , NHU B, 1 , 5G , 1 , ZHROT, RHROT) 

CALL ROTATE (AN GROT, ZTIP, RTIP, NT IP, 1 , 50, 1 , ZTPOT, RTROT) 

--DIVIDE HOB AND TIP CONTOURS 
NMAX = MAXO (NHUB,NTIP) 

IF (NHUB.EQ.NTIP) GO TO 8 
IF (NHUB. EQ.NMAX) GO TO 4 

DELH = (ZHROT (NHUB) -ZHROT(1 )) /FLOAT (NMAX-1) 

DO 2 1=1, NMAX 

ZRAD (I,MHTP1) = ZTROT(I) 

RRAD (I,MHTP1) = RTROT(I) 

2 ZRAD(I,1) = ZHROT(I) +FLOAT (1-1) *DELH 

CALL SPLINT (ZHROT, RHROT, NHUB, ZRAD (1,1), NMAX, RRAD (1, 1) , AAA, BBB) 

GO TO 15 

4 BELT = (ZTROT(NTIP) -ZTROT(1))/FLOAT(NHAX-1) 

DO 6 1=1, NMAX 
ZRAD(I,1) = ZHROT(I) 

RRAD(I,1) = RHROT(I) 

6 ZRAD(I,MHTP1) = ZTROT ( 1 ) +FLOAT ( I- 1 ) *DELT 

CALL SPLINT (ZTROT , RTROT , NTIP , ZR AD ( 1 , HHTP1) , NMAX, RR AD ( 1 , M HTP1 ) , A A A , 

1BBB) 

GO TO 15 

8 DO 10 1=1, NMAX 

ZRAD(I,1) = ZHROT(I) 

RRAD(I,1) = RHROT(I) 

ZRAD (I, MHTP1) = ZTROT(I) 

10 RRAD (I,MHTP1) = RTROT (I) 

15 CONTINUE 

--FILL ZRAD AND RRAD ARRAYS FROM HOB TO TIP 
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DO 20 I=1,NMAX 

DELZ = (ZRAD (I,MHTP1) -ZPAD (I, 1) ) /FLOAf(MHT) 

DELR = (RRAD(I,MHTP1) -RRAD (1,1) ) /FLOAT(MHT) 

DO 20 J=2,«HT 

ZBAD(I,J) = ZRAD (I, J-1) +DELZ 
20 RRAD{I,J) = RRAD (I, J-1) +DELR 

--ROTATE INPUT MESH BOUNDARIES 
CAN = COS (ANGROT) 

SAN = SIN(ANGROT) 

ZOMINR = ZOMIN+CAN+ROMIN+SAN 
ZOMBIF = ZOMBI*CAN*ROMBI*SAN 
ZOMBOR = ZOMBO*CAN+ROMBO*SAN 
ZOHOUR = ZOMOUT*CAN+ROMOUT*SAN 

--COMPUTE ZOHPOT ON HUB 

ZOHFOT(1,1) = ZOMINF 
IF (MBI.EQ.O) GO TO 50 
HBIM1 = HBI-1 

DELZ= ( ZOMBIE -ZOMINR) /FLOAT (MBIM1) 

DO 30 1=2, MBI 

3G ZOHROT(I,1)= ZOMROT (I- 1 , 1) +DELZ 

DELZ = (ZOMBOR-ZOMBIP) /FLOAT (HBO-MBT) 

HBIP1 = HBI+1 
DO UO I=M8IP1,MBC 

40 ZOMROT(I,1)= ZOHEOT (1-1, 1) tDELZ 

DELZ= (ZOMOUR-ZOMBOR) /FLOAT (MM-MBO) 

MBOP1 = MBO+1 

50 IF (MBI.EQ.O) DELZ = (ZOMOUR-ZOMINR) /FLOAT (MMMI) 

IF (MBI.EQ.O) HBOPl=2 
DO 60 I=MBOPl , MM 

60 ZOMROT(I,1)= ZOMROT (T-1 , 1) +DELZ 

--COMPUTE ROMROT AND SLOPE ON HUB 

CALL SPLINT (ZRAD (1 , 1 ), RRAD ( 1 ,1) , NM AX, ZOMROT (1,1) , MM, POM ROT (1,1) , 
1SLOM,BBB) 

DO 70 1=1, MM 

PHI = ATAN (SLOH (I) )+ ANGROT 
SPHI (1,1) = SIN (PHI) 

7C CPHI (1,1) = COS (PHI) 

--COMPUTE ZOMROT AND ROMROT ROW BY ROW FROM HUB TO TIP 
DO 100 J=2,MHTP1 

--MOVE ALONG PRESENT ROW, ONE POINT AT A TIME, LOCATING 
--COORDINATES OF INTERSECTIONS OF LINES NORMAL TO PREVIOUS ROW 
DO 80 1=1, MM 

--CALCULATE POINTS ON STRAIGHT LINE NORMAL TO PREVIOUS ROW 
RNOR(2) = ROMROT (I, J-1) 

ZNOR(2) = ZOMROT (I, J-1) 

RMOR(1) = RNOR(2)-DELR 
ZNOR(1) = ZNOR (2) +SLOM (I) +DELR 

--LOCATE INTERSECTION OF LINE NORMAL TO PREVIOUS ROW WITH PRESENT ROW 
80 CALL TNRSCT(ZRAD (1 ,J) ,RRAD (1 , J) , N MAX , Z NOR, RNOR, 2 , Z 1 (I) ,R1 (I) ) 

--CALCULATE SLOPES OF PRESENT ROW AT INTERSECTION POINTS 
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CALL SPLINT (Z R A D ( 1 , J ) , RH AO { 1 , J) , NHA X , Z 1 , MM , A AA , SLOM, BBB) 

C 

C--CALCOLATE INTERSECTIONS OF LINE NORMAL TO PRESENT ROW WITH 
C--PRESENT ROW 

DO 9C 1=1, MH 

Z2 = (ZOMROT (I , J-1) + (ROB ROT (I , J- 1 ) - R1 ( I) ) *SLOB (I) +Z 1 ( I) *SLOM ( I) ** 2 
1)/(1. +SLOM (I) **2) 

90 ZOMHOT(I,J) = (Z1(I)+Z2)/2. 

— CALCOLATE ROMROT AND SLOPES AND ANGLES ON PRESENT ROW 
CALL SPLENT (ZOMROT (1,J) , MM, ROMROT ( 1 , J) ,SLOM,BPB) 

DO 100 1=1, MM 

PHI = ATAN (SLOM (I) ) +ANGROT 
SPHI (I,J) = SIN (PHI) 

100 CPHI(I,J) = COS (PHI) 

--ONROTATE ZOMROT AND ROMROT TO GET ZOM AND ROM 

CALL ROTATE (-AN GROT, ZOMROT , ROMROT, MM , MHTP 1 , ICO, 101 , ZOM, ROM) 

RETURN 
END 


SUBROUTINE MEPLOT 

— MEPLOT PLOTS THE BLADE GEOMETRY AND THE GENERATED ORTHOGONAL MESH 

COMMON/INPOTT/GAM, AR ,MSFL, OMEGA, REDFAC, VELTOL, FNEW, DNEW , MBI , MBO , 

1 HM,HHT,NBL, NHOB, NTIP , NIN, NOUT, NBLPL, NPPP, NOSTAT, NSL, NLOSS, 

2 LSFR,LTPL,LAMVT,LROT,LBLAD,LETEAN,ANGROT,IMESH,ISLINE, 

3 ISTATL,IPL0T,ISUPER,ITS0N,IDEBUG,ZCMIN,Z0HBI,Z0MB0,Z0M0HT, 

4 ROMIN,ROMBI,POMBO,ROMOUT,ZHIN,ZTIN,ZHOUT,ZTOUT,RHIN,RTIN,RHOUT, 

5 RT0UT,TITLEI (20) , ZHUB (SO) , RHUB (50) ,ZTIP(50) ,RTIP (50 ) ,S F IN (50 ) , 

6 RADIN (50) ,TIP (50) ,PRIP (5C) ,LAMIN (50) ,VTHIN (50) ,SFOUT(50) , 

7 RADOUT(50) ,PHOP(50) ,LOSOUT(5C) ,LAMOOT(50) ,VTHOUT(50) , 

8 BETALE (50) ,BETATE (50) ,ZHST (50 ) ,ZTST (50) , EHST (5'>) ,RTST(50) , 

9 FLFR(50) ,PERCRD(50) , PER LOS (50) ,ZBL(50,5C) ,RBL(50,5r() , 

1 THBL (50, 50) ,TNBL (50 ,50) ,TTBL (50 , 50) , THiBL (50 , 50) ,TH2BL ( 50 , 50 ) 

COM MON/CALCON/MMM 1, M HTP 1 , CP, EXPON,TGROG, PITCH, RLEH,RLET,RTEH,RTET, 

1 ZLE(50) ,RLE(50) ,ZTE(50) ,RTE(50) ,ZLEOM(1C1) ,RLEOM(1^1) , 

2 SLEOH (101) ,THLEOM (101) ,ZTEOH(101) ,RTEOH(101) ,STEOM (101) , 

3 THTEOM (101) , ILE (101) , TTE (101) ,ZOM ( 100, 101 ) ,ROM (100, 10 1) , 

4 SOM (100, 101) ,TOM (100,101) ,BTH (100,101) , DTHDS ( ICO , 10 1 ) , 

5 DTHDT(100, 101) ,PLOSS ( 100 , 1 0 1 ) , CPHI (1 00 , 1 0 1) ,SPHI (100,101) 
COHMON/PLTCOM/ZLBNG,ZRRNG,RBRNG, RTRNG,ZHPLT (100) ,RHPLT (100) , 

1 ZSPLT (100) ,RSPLT (100) ,ZLPLT (100) ,RLPLT (100) ,ZTPLT(100) , 

2 RTPLT(IOO) 

DIMENSION TITLI (15) ,TTTL2 (10) ,TITL3 (3) ,TITL4 (3) ,ZTEM (101) , 

1RTEM (101) 

DATA TITLI/'HUB,',' SHE ' , ' OUD, • , ' AND*,* BLA*,*DE B • , ' OUND • , • AR IE ’ 
1,*S$C1','$R8I',*N ME','RIDT','0NAL*,* PLA','NE •/ 

DATA TITL2/*0RTH ' , 'OGON* ,' AL M • , • ES H$* , • C1 $L • , • 2IN ' , • M ERI * , ' DION* 
1 , * AL P* , *LANE'/ 

DATA TITL3/'Z D* , 'IREC* , 'TION*/ 

DATA TITL4/*R D* , * IREC* , *TION'/ 

DATA SYM/*X'/ 
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data SYN/»0'/ 

IF (IPLOT.LE.O) RETURN 

--OBTAIN PLOT BOUNDARIES, AND SCALE THE PLOT 
CALL PTBDRY 

--PLOT BLADE GEOMETRY AND PLOT ORTHOGONAL ME' 
CALL LRMRGN(1. 0,1. 0,2. '>,1.0) 

CALL LRANGE (ZLRNG , ZRR NG , RB R NG, RT RNG) 
IPLT= 1 
10 EOP = 0. 

TP LRGPID{ 

cIll LcJs?;?;'”'-”"-"®-"' 

TP LRLEGN( 

IF (IPLT.EQ.3.0R.IPLT.EQ.U) CALL LRLEGN( 
CALL LRCHSZ (2) 

CALL LRLEGN (TITL3, 12,0,4.5, 1.5,0. D 
CALL LRLEGN (TITL4 , 1 2 , 1 , & . 4 , 4 . 5, 0 . 0 
CALL LRCHSZ (4) ' 

CALL I*FCURV(ZHPLT,RHPLT,100,2,SYM,0.n) 


LRGPID{-1, -1,1. 0,1.0) 
LRGRID(3,3,11.0,11.0) 

LRLEGN (TITL1, 60,0,1.3,0. 7, 0.0) 

LRLEGN (TITL2,40,0 , 3. 4, C. 7, 0 .D) 


CALL LRCURV (ZSPLT, RSPLT , 100 , 2 's YM^O ! 0) 

IF(MBI.EQ.O) go TO 12 ^ 

CALL LPCURV(ZLPLT,RLPLT, 100,2, SYM.O 0) 

CALL LECURV (ZTPLT,RTPLT, 100 ,2 ,SYM,0 *0) 

12 IF (IPLT.GT.2) GO TO 20 ' ’ 

IF(MBI.EQ.O) EOP = 1. 

CALL LRCURV (Z HUB, R HUB, N HUB , 4 , SYH , 0 . 0) 

IF(HBI.EQ.O) go to 18 
DO 15 JN=1,NBLPL 

15 CALL DRCUR V (Z BL ( 1 , JN) , RBL { 1 , JN) , NPPP 2 SVM 0 

CALL rotate (-ANGROT, ZLE, RLE NBLPL,1,50;rz-JEH RTEH» 
CALL LRCURV (ZT£H,RrEM,NBLPL,3,SYN.o!o) ' ’ 

CALL rotate (-ANGROT,ZTE,RTE,NBLPL, 1 ,50 1 7TEM RTPm 

GO TO 10 

C PLOT VERTICAL MESH LINES 
2C DO 40 1=1, MM 
DO 30 J=1,HHTP1 
ZTEH(J)= ZOM(I,J) 

3C RTEM(J)= ROM(I,J) 

/- nTA**»^ ^RODRV (ZTEM,RTEM, MHTP1 ,2,SYM,0.0) 

C--PLOT HORIZONTAL MESH LINES ' 

EOP= 0.0 

DO 50 J=2,MHT 

IF (J.EQ.MHT) EOP=1.0 

iJlT »R0M(1,J) ,mM,2,SYM,EOP) 

IF (IPLT.LE.4) GO TO 10 

CALL LRCURV (ZTEH , RTEM , 0 , 1 , S YM, 1 . 0) 

CALL LRCHSZ (0) ' 

RETURN 

END 
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SUBROUTINE PTBDRY 


C— PTBDRY OBTAINS THE HUB AND SHROUD AND BLADE LEADING AND -RAILING EDGE 
C--BOUNOARIES FOR PLOTTING, AND SCALES THE PLOT 

^ COMMON/INPUTT/GAM, AP ,«SFL, OMEGA, REDFAC,VELT0L,FNEH,DNEW,MBI,MB0, 

1 HH,HHT,NBL, NHUB , NTIP , NI N , NOUT , NB LPL, N PPP, NOSTAT, NSL, NLOSS, 

2 LSFR,LTPL, LAMVT,LR0T,LBLAD,LETEAN, ANGROT, IHSSH,ISLINE, 

1 rsTATL. IPLOT, ISUPER, ITSON, IDEBUG ,ZOMIN,ZOHBI,ZOMBO,ZOMOUT, 

4 POMIN,ROMBI, ROMEO, R0M0UT,ZHIN,ZT IN, ZHOUT,ZTOOT,RHIN,RTTN,RHn[J-, 

5 RT00T,TITLEI (20) ,ZHUB{5f') ,RHUB(S0) , ZTIP ( FC ) , RTTP (SB ) ,SFTN(SC) , 

6 RADTN (50) ,TIP (5^) ,PRIP(5C) ,LAMTN (SP) ,VTHIN(SD) ,5FOUT(50) , 

7 RADOUT(SC) ,PROP(5C) ,LOSOUT(50) ,LAMOUT{5C) ,VTHOUT (5^) , 

8 BETALE (50) ,BETATE(5C) ,ZHST(5B),ZTST(50),RHST(50) ,PTST(5C) , 

9 FLFR(50) ,PERCPD(50) ,PERLOS (50) ,ZBL(50,5C) ,RBL(5B,50) , 

1 THBL (5 0,50) ,TNBL (50 , 50) , TT BL ( 5C , 5^) , TH 1 BL (50 , 50) ,TH 2BL ( 50 , 50 ) 
COMMON/CALCON/HMM1,MHTP1,CP, FXPON,TGROG ,PITCH,RLEH,RLET,PTEH,RTET, 

1 ZLE(50) ,RLE(50) ,ZTE(5C) ,RTE(5'^) ,ZLEOM(101) ,RLEOM(101) , 

2 SLEOM(IOI) ,THLEOM (101) ,ZTFOM(101) ,PTEOH(101) ,STEOM (101) , 

3 THTEOH (101) , ILE (101) ,TTE ( 1 1 ) , ZO M ( ICO , 10 1 ) ,ROM (100 , 101) , 

4 SOM (ICO, 10 1) , TOM ( 100 , 10 1 ) , BTH ( 100, 1C 1) , DTHDS ( 1 00 , 1 0 1 ) , 

5 DTHDT(100,1Q1) ,PL0SS (100 ,101) ,CPHI(10O,ir 1) , 5PHI ( 100 , 10 1) 
COMMON/ROTATN/ZHROT(53) ,RHROT(50) ,ZTROT(5C) ,RTROT(5C) , 

1 ZLEOHR(IOI) ,RLEOMB(101) ,ZTFOMR(101) ,RTEOMR(ini), 

2 ZBLROT(50,5C) ,RBLPOT (50, 50) ,ZOMROT (100, 1C 1) ,POHROT(100, 101) 

COM MON/P LTCOM/ZLE NG, ZRRNG, RBRNG, RTRNG, ZHPLT (100) , RHPLT ( 100 ) , 

1 ZSPLT (ICO) ,RSPLT (100) ,ZLPLT (1C^) ,PLPLT (ICO) ,ZTPLT(1C0) , 

2 BTPLT(IOO) 

DIMENSION AAA (100) ,BBB (100) 


-OBTAIN PLOT POINTS ON HOB 


DELZ = (ZHROT (NHUB) -ZHROT (1 ) ) /P9 . 

ZHPLT(I) = ZHROT(I) 

DO 10 1=2,100 

10 ZHPLT (T) = ZHPLT (1-1) +DELZ 

CALL SPLINT (ZH EOT , RHPOT , NHO B , ZHPLT , ICO, RHPLT, AAA, BBB) 
CALL ROTATE (- ANGROT , Z HPLT, R HPLT , 1 OC , 1 , 1 00 , 1 , ZHPLT , RHP LT) 

-OBTAIN PLOT POINTS ON SHROUD 


DELZ = (ZTROT (NTIP) -ZTROT(I) )/99. 

ZSPLT(1) = ZTROT (1) 

DO 20 1=2,100 

20 ZSPLT (I) = ZSPLT (1-1 ) +DELZ 

CALL SPLINT (ZTROT, RTROT , NTIP , ZSPLT , 1 00 , RSPLT , A A A , BB B) 
CALL ROTATE (-ANGROT, ZSPLT, RSPLT, ICO, 1,10 0,1 , ZSPLT, RSPLT) 

IF (HBT. EQ.O) GO TO 50 


--OBTAIN PLOT POINTS UP BLADE LEADING EDGE 


C 


30 


DELR = (RLET-RLEH) /99. 

RLPLT(I) = RLEH 
RLPLT(ICO) = PLET 
DO 30 0=2,99 

RLPLT(J) = RLPLT (0-1) +DELH 

CALL SPLINT (R LE , ZLE , NBLPL, RLPLT , 1 CO , ZLPLT, A A A, BBB) 

CALL ROTATE (-ANGROT, ZLPLT, RLPLT, 100,1,100,1, ZLPLT, RLPLT) 
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--OBTAIN PLOT POINTS UP BLADE TPATLING EDGE 

DELR = (PTET-RTEH) /99. 

PTPLT(1) = RTEH 
RTPLT(IOO) = RTET 
DO 4C J=2,99 

4r> RTPLT(J) = RTPLT (J-1) +DELR 

CALL SPLINT (RTE, ZTE, NBLP L, R TPLT , 1 CO , ZTPLT , A AA , BBB) 

CALL ROTATE (- A NG ROT , ZTPLT, RT PLT , 1 00 , 1 , 100, 1 , ZTPLT, RTPLT) 

--CALCULATE THE RANGE OF THE PLOT 

50 ZLRNG = ZHUB(1) 

ZRRNG = ZHUB(NHUB) 

RBRNG = RHUB(I) 

PTRNG = RTIP(1) 

C--CHECK HUB AND TIP 
DO 60 I=1,NHUB 
ZLRNG = ABIN1 (ZLRNG,ZHUB (I) ) 

ZRRNG = AHAX1 (ZRRNG, ZHUB (I) ) 

RBRNG = AMIN1 (RBRNG, RHUB (I) ) 

60 RTRNG = AMAX1 (RTRNG, PHUB (T) ) 

DO 70 I=1,NTIP 

ZLRNG = AMIN1 (ZLRNG,ZTIP (I) ) 

ZRRNG = AMAX1 (ZRRNG,ZTIP (I) ) 

RBRNG = AMIN1 (RBPNG,RTIP (I) ) 

70 RTRNG = AMAX1 (RTRNG, RTIP (I) ) 

C--CHECK INLET AND OUTLET MESH BOUNDARIES 
DO 80 J=1,MHTP1 
ZLRNG = AMIN1 (ZLRNG, ZOM(1,J)) 

ZLRNG = AMIN1 (ZLRNG, ZOM (MM, J) ) 

ZRRNG = AMAX1 (ZRRNG, ZOM (1,J) ) 

ZRRNG = AMAX1 (ZRRNG, ZOM (MM, J) ) 

RBRNG = AMIN1 (RBRNG, ROM (1,J) ) 

RBRNG = AMIN1 (RBRNG, ROM (MM, J) ) 

RTRNG = AMAX1 (RTRNG, ROM (1,J) ) 

8C RTRNG = AMAX1 (RTRNG, ROM (MM, J) ) 

C--CHBCK HOB AND TIP MESH BOUNDARIES 
DO 90 1=1, MM 

ZLRNG = AMIN1 (ZLRNG,ZOM (I, 1) ) 

ZLRNG = AMIN1 (ZLRNG,ZOM (I,MHTP1) ) 

ZRRNG = AMAX1 (ZRRNG,ZOM (I, 1) ) 

ZRRNG = AHAX1 (ZRRNG,ZOM (I,MHTP1) ) 

RBRNG = AMIN1 (RBBNG,ROM (I, 1) ) 

RBRNG = AHIN^I (RBRNG,ROM (I, HHTP1) ) 

RTRNG = AMAX1 (RTRNG, ROM (1, 1) ) 

90 RTRNG = AMAX1 (RTRNG,ROM (I,MHTPr) ) 

C — CHECK FIRST AND LAST INPUT BLADE SECTIONS 
IF (MBI.EQ.O) GO TO 110 
DO 100 I=1,NPPP 
ZLRNG = AMIN1 (ZLRNG, ZBL(I,1)) 

ZLRNG = AMIN1 (ZLRNG,ZBL (I, NBLPL) ) 

ZRRNG = AMAX1 (ZRRNG,ZBL (I, 1 ) ) 

ZRRNG = AMAX1 (ZRRNG, ZBL (I, NBLPL) ) 

RBRNG = AMIN1 (RBRNG, RBL(I,1)) 

RBRNG = AMIN1 (RBRNG, RBL (I, NBLPL) ) 

RTRNG = AMAX1 (RTRNG, RBL(I,1)) 

ICO RTRNG = AMAX1 (RTRNG, RBL(I, NBLPL) ) 

110 DELZ = ZRRNG-ZLRNG 
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ZLRNG = ZLRNG-0.05*DELZ 
ZRBNG = ZRBNG+C.05*DELZ 
DELS * RTRNG-PBRNG 
RBBNG = RBRNG-0.05+DELP 
RTRNG = RTRNG*0.05*DELR 


CHOOSE HAXIMnM RANGE, AND EXPAND RANGE IN THE OTHER DIRECTION 
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DHD2 = 1 ,1+ABS (DELZ-DELR)/2. 
IF (DELE. GT.DELZ) GO TO 120 
RTRNG = RTRNG+DMD2 
RBRNG = RBRNG-DMD2 
RETORN 

ZRBNG = ZRRNG+DHD2 
ZLRNG = ZLRNG-DMD2 
RETURN 
END 


SDBROOTINE PRECAL 

-PRECAL CALCULATES MANY OF THE REQUIRED FIXED CONSTANTS 

COMMON NREAD, NHRIT, ITER, lEND, NHRT1 , NHRT2, NHRT3, NNRT4 , NNRT5 , NHRT6 
COHMON/INPOTT/GAH,AR, MSFl,OMEGA, REDPAC, V ELTOL, FNEH, DNEW, MBT, HBO, 

1 MM,MHT,HBL,NHUB,NTTP,NIN,NOOT,NBLPL,NPPP,HOSTAT,NSL,HLOSS, 

2 LSFR,LTPL,LAMVT,LROT,LBLAD,LETEAN, ANGROT , IHESH, ISL IN E, 

3 ISTATL, IPLOT, ISUPER,ITSON, IDEBOG , ZOMIN , ZOMBI , ZOHBO , ZOHOUT , 

4 ROHIN,ROMBI,ROMBO,ROMOUT,ZHIN,ZTIN,ZHOUT,ZTOUT,RHTN,BTIN,RHOUT, 

5 RTOOT,TITLEI (20) , ZHOB (50) , RHUB (50) , ZTI P (50) , RTIP (50) , SPIN (50) , 

6 RADTN (50) , TIP (50) ,PRIP(50) ,LAMIN (SC) , VTHIN (50) ,SFOUT (5^) , 

7 RADOOT (50) ,PROP (50) ,LOSOUT (50) ,LAMOUT (50) ,VTHOUT (50) , 

8 BETALE (50) ,BETATE (50) ,ZHST (50) ,ZTST(50) ,RHST(5'') ,RTST(5 0) , 

9 FLFR (50) ,PERCRD (50) , PER LOS (50) ,ZBL(50,50) , RBL (50,5D) , 

1 THBL(50,50) ,TNBL(50,50) ,TTBL(50,50) ,TH1BL (50,50) ,TH2BL ( 50 , 5P ) 

COMMON/CALCON/MMMI ,MHTP1 ,CP , EXPON, TGBOG, PITCH, RLEH, RLET , RT EH, RTET , 

1 ZLE(50) ,RLE (5 0) ,ZTE (50) ,RTE(50) ,ZLEOH (101) ,RLEOM (I'll) , 

2 SLEOM (101) ,THLEOM (101) ,ZTEOM(101) ,RTEOM(101) ,STEOM (101) , 

3 THTEOM (101) ,ILE (101) ,ITE (101) ,ZOM (100, 101) , ROM ( 100 , 10 1) , 

4 SOM (100, 101) , TOM (100, 101) , BTH ( 1 0 0 , 10 1 ) ,DTHDS ( 1 0'' , 1 0 1 ) , 

5 DTHDT (100, 101) , PLCSS ( 100 , 1 0 1 ) , CPHI ( 1 00 , 1 0 1 ) , SPHI ( 1 0D , 1 0 1 ) 
COHMON/VARCOM/A (4, 100, 101) , UOH (100, 101) ,K(100,101),RHO(10C,101) , 

1 HSUBS(100,101) ,NSUBT (100 ,101) , NS UBZ ( 100 , 1 0 1) , NSUBR (100,101), 

2 HSUBM (100, 101) , WTH( 100,10 1),VTH( 100, 10 1) ,H( 100, 101) , 

3 ALPHA (100, 101) , BETA (100, 101) , HHCR ( 1 00 , 10 1 ) ,CURV(100, 10 1) , 

4 HLSURF (100, 101) , HTSURF ( 1 00 , 1 0 1 ) , CAMP ( 1 00 , 10 1 ) , SAMP (ICO, 101) , 

5 RHOAV (100,101) ,DELRHO(100,101) , FT (100,101) ,DFDH(100, 101) , 

6 XIOH (100,101) ,ZETOH (100, 101) , DLDU (100, 101) 

COMMON/HOTATN/ZHROT (50) ,RHROT (50) ,ZTROT (50) ,RTROT(50) , 

1 ZLEOHR(101) ,RLEOHR (101) ,ZTEOMR(101) ,RTEOMR(101) , 

2 ZBLROT (50,50) ,RBLROT (50 ,50) ,ZOHROT (100, 1C 1) ,ROMROT ( 100, 101 ) 
DIMENSION DYDX (101) ,D2YDX2 (101) ,TTEM(50) ,DOM (101) ,DIP (50) , 

1 SZHBL (50) ,BLOCK (50) 

BEAL HSFL,LAMIN,LAMOUT 

-INITIALIZE TIPF, RHOIPF, LAMDAF, AND RVTHTA 


124 


c 

CALL LAMNIT 
CALL RVTNIT 
IF (GAM.NE.O.) CALL TIPNIT 
IF (GAM.NE.O.) CALL RHINIT 
C 

C- -INITIALIZE THE BTH ARRAY 
C 

DO 30 J=1,nHTP1 
DO 30 1 = 1, mi 
3 r- BTH(I,J)= PITCH 
c 

^"“I^I'TTALIZE the FLFR array IF IT WAS NOT READ IN 

IF (NSL.GE.I) GO TO 50 
NSL = 11 
FLFR(1) = 0. 

FLFR(11) = 1.0 
DO 40 J = 2, 10 

40 FLFR(J) = FLFR (J-1) +0. 1 
GO TO 80 
C 


C--SET END POINTS FOR FLFR ARRAY 
C 

50 IF (FLFR(1) .LE.O.) GO TO 70 
TEHP1 = 0. 

DO 60 JL=1 , NSL 
TEMP2 = FLFR(JL) 

FLFR(JL) = TEMPI 
60 TEMPI = TEMP2 
NSL = NSL+1 
FLFR (NSL) = TEMPI 
70 IF (FLFR (NSL) . GE. 1 , 0) GO TO 80 
NSL = NSL+1 
FLFR (NSL) =1.0 
C 

C CALCULATE SOM FROM THE ZOM,ROM ARRAYS 

80 DO 90 J=1,HHTP1 
SOM (1 ,J) = 0. 

DO 90 1=2, MM 

90 SOH(I,J)= SOM (I-1,J) ♦SQRT( (ZOM(I,J) -ZOM(I-1,J) 
1ROH(I-1,J) ) **2) » ru, 

C 

C— CALCULATE TOM PROM THE ZOM,ROM ARRAYS 
C 

DO ICO 1=1, MM 
TOM (1,1) =0. 

DO 100 J=2,MHTP1 


)**2* (ROM (I, J) - 


-ZOH(I,J-1))**2MROH(I,J)- 


C--ROTATE HUB AND SHROUD STATION LINE LOCATION ARRAYS 
IF (NOSTAT. EQ.O) GO TO 101 

CALL ROTATE (ANGROT, ZHST ,RHST, NOSTAT , 1 , 50 , 1 , ZHST, RHST) 

^ CALL B0TATE(ANGR0T, ZTST,RTST, NOSTAT, 1, 50, 1,ZTST,RTST) 

C--ROTATE ZBL AND RBL TO GET ZBLROT AND RBLROT 

101 CALL rotate (ANGROT, ZBL, RBL, NPPP, NBLPL, 50, 50, ZBLROT, RBLROT) 
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C--SET TLE AND ITE ARRAYS WHEN THERE APF NO BLADES 
C 

IF (HBI.NE.O) GO TO ItU 
DO 1C2 J=1,MHTP1 
TLE(J) = MM + 1 
102 ITE(J) = HM+1 
GO TO 225 


C 

C — CALCULATE LEADING EDGE ARRAY, ZLE,PLE ,FF0M ZBL AND BBL ARRAYS 
C--CALCOLATE INTERSECTION OF LEADING EDGE WITH HUB AND SHROUD PROFILES 
C 

104 DO 110 JN=1,NBLPL 

ZLE (JN) = ZBLROT (1 , JN) 
lie PLE(JN) = RBLROT{1,JN) 

CALL INRSCT (ZH ROT , RHROT , NHO B , ZLE , RLE, NBLPL, ZLEH, RLEH) 

CALL INRSCT (ZTROT, RTROT , NTI P , ZLE , R LS , NBLPL, ZLET, RL ET) 


C 

C--CALCOLATE TRAILING EDGE ARRAY, ZTE, RTF ,FROM ZEL AND PBL ARRAYS 
C--CALCULATE INTERSECTIONS OF TRAILING EDGE WITH HUB AND SHROUD PROFILES 
C 

DO 120 JN=1 , NBLPL 
ZTE(JN) = ZBLROT (NPPP,JN) 

12C RTE(JN) = RBLROT (NPPP, JN) 

CALL INRSCT (Z HROT , RHROT , NHUB , ZTE , RTE , NBLPL , ZTEH , RTEH) 

CALL INRSCT (ZTROT, RTROT , NTIP ,ZTE , RT E, NBLPL, 7TET, RTET) 

C 

C--CALCOLATE ORTHOGONAL NESH ARRAYS AT THE LEADING EDGE 
C--ZLSOM(AND ZLEOMR), RLEOH(ANC RL'^ONR), SLEOM, AND THLEOn 
C--CALCULATE ILE ARRAY OF MESH POINT LOCATIONS INSIDE BLADE 
C--LEADING EDGE 
C 

ZLEOMR(I) = ZLEH 
RLEOMR(I) = RLEH 
ZLEOMR (MHTP1) = ZLET 
RLFOHR (MHTP1) = RLET 
DO 130 J=2,MHT 

130 CALL INRSCT (ZOMROT (1 ,J) ,HOMROT (1 ,J) , MM, ZLE, RLE, NBLPL, ZLEOMR (J) , 

1 RLEOMR (J) ) 

DO 16C J=1,MHTP1 
DO 140 1=1, MM 

IF {ZLEOMR (J) . LE. ZOMROT (I, J) ) GO TO 15" 

140 CONTINUE 
15C ILE (J) = I 

160 SLSOM(J) = SOM (1-1 ,J) +S0RT ( (ZLEOMR (J) -ZOMROT (T-1,J) ) ♦♦Z 
1+ (RLEOMR (J) -ROM ROT (1-1 ,J) ) **2) 

DO 170 JN=1 , NBLPL 
170 TTEH(JN) = THBL(1,JN) 

DOM (1) = 0. 

DO 174 J=2,MHTP1 

174 DOM (J) = DOM (J-1 ) tSQRT ( (ZLEOMR (J) -ZLEOMR (J-1) ) **2 

1 ♦ (RLEOMR (J) -RLEOMR (J-1) )*♦ 2) 

DIP(1) = 0. 

DO 176 JN=2, NBLPL 

176 DIP(JN) = DIP (JN-1) +SQRT ((ZLE (JN) -ZLE(JN-I) ) **2 + 

1 (RLE(JN) -RLE(JN-I) ) **2) 

CALL SPLINT (DIP, ITEM, NBLPL, DOM, HHTP 1 , THLEOM, DYDX, D2YDX2) 

CALL ROTATE (- ANG ROT , ZL EOMR , RLEOM R, MHTP 1 , 1 , 101 , 1 , ZLEOM , RLEO H) 

C 

C--CALCULATE ORTHOGONAL MESH ARRAYS AT THE TRAILING EDGE 
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C — ZTEOM(AND ZTEOMR) , RT?OM(AND RTEOME) , STEOM, ANDTHTEOM 
C--CALCOLATE ITE ARRAY OF MESH POINT LOCATIONS INSIDE BLADE 
C--TRAILING EDGE 
C 

ZTEOMR (1) = ZTEH 
RTEOMF{1) = RTEH 
ZTEOMR (MHTP1) = ZTET 
RTEOMR (HHTP1) = RTET 
DO 18C J=2,HHT 

ISr CALL INRSCT (ZOMROT (1 , J) ,ROMROT(1 , J) ,MH ,ZTE,RTE, NBLPL,ZT’='OMR (J) , 
1ETEOHR (J) ) 

DO 210 J=1,MHTP1 
ILEJ = ILE (J) -1 
DO 19C I=ILEJ,MM 

IF (ZTEOMR (J) . LT. ZOMROT (I, J) ) GO TO 200 
19C CONTINUE. 

200 ITE(J) = 1-1 
ITEJ = 1-1 

21C STEOH (J) = SOM (ITEJ, J) +SQRT ( (ZTEOMR (J) -ZOMROT (ITEJ, J) ) **2 

1 * (RTEOMR (J) -ROM ROT (ITEJ, J) ) **2) 

DO 220 JN=1,N3LPL 
22C TTEM(JN) = THBL (NPPP , JN) 

DOH(1) = 0. 

DO 222 J=2,MHTP1 

222 DOM (J) = DOM (J-1) +SQRT ( (ZTEOMR(J) -ZTEOMR (J-1) ) **2 

14- (RTEOMR (J) -RTEOMR (J-1) ) ♦♦Z) 

DIP (1) = 0 . 

DO 223 JN=2,NBLPL 

223 DIP(JN) = DIP (JN-1) +SQRT ((ZTE(JN) -ZTE(JN-I) ) **2 + 

1 (RTE (JN) -RTE(JN-1))**2) 

CALL SPLINT (DIP ITEM , N BLPL , DOM , M HTP 1 , THTEOM , DYDX , D2 YD X 2) 

CALL ROTATE (- A NG ROT , ZTEOMR , RTEOMR, MHTP1 , 1, 1 C1 , 1 , ZTEOM , RTEO M) 

C 

C--PPINT BLADE GEOMETRY ON INPUT PLANES 
C 

WHITE (NWRIT, 1 1^00) 

DO 224 JN=1,NBLPL 
SZRBL(I) = 0. 

BLOCK (1) = TTBL (1,JN)/PITCH 
DO 226 IN=2,NPPP 

SZRBL(IN) = SZRBL (IN-1 ) ♦5QRT ( (ZBL (IN, JN) -ZBL (IN-1, JN) ) ’♦*2 
1 + (RBL(IN,JN)-RBL(IN-1,JN))**2) 

226 BLOCK(IN) = TTBL (IN, JN) /PITCH 
IF (LETEAN. EQ. 1 ) GO TO 232 

CALL SPLINE ( SZR BL, THE L ( 1 ,JN) , NPPP , DYDX , D2YDX2) 

GO TO 234 

232 DTHDSL = T AN ( BET AL E (JN) /57 . 295780) /RBL ( 1 , JN) 

DTHDST = TAN (BETATE (JN) /57. 295780) /RBL (NPPP, JN) 

CALL SPLISL (SZRBL,THBL (1 ,JN) , NPPP, DTHDSL , DTHDST, DYDX, D2YDX 2) 

234 WRITE (NWRIT,1010) J N , (I N, ZBL (I N , JN) , RBL (IN , JN) , THBL ( IN , JN) , 
1TTBL(IN,JN) ,BLOCK(IN) ,SZRBL(IN) ,DYDX(IN) ,D2YDX2(IN) ,IN=1,NPPP) 

224 CONTINUE 

WRITE (NWRIT,1 040) 

C 

C — CALCULATE THETA GRADIENTS ON THE ORTHOGONAL MESH 
C 

CALL THETOH 

--CORRECT BTH FOR BLADE THICKNESS ON THE ORTHOGONAL MESH 
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CALL THIKOM 


-REDOCE HASSFLOH, HHEEL SPEED, AND WHIRL FOR REDUCED FLOW SOLUTION 

225 IF (REDFAC.EQ.1.0) GO TO 260 
OMEGA = OMEGA*REDFAC 
MSFL = MSFL*REDFAC 
DO 230 J=1,NIN 
LAMIN(J) = LAHIN (J) +FEDFAC 
23C VTHIN(J) = VTHIN (J) *PEDFAC 
IF (MBI.EQ.O) GO TO 250 
DO 240 J=1,NOUT 
LAMOUT(J)= LAHOUT (J) *REDFAC 
24C VTHOUT(J) = VTHOUT ( J) * REDFAC 

-RE- INITIALIZE LAMDAF AND EVTHTA FOR REDUCED FLOW 

CALL RVTNIT 
250 CALL LAMNIT 

■-PRINT DEBUG OUTPUT 

260 IF (IDEBUG.LE.O) GO TO 270 
WRITE (NWRIT, 1020) 

WRTTE(NWRIT,103C) ( (I,J,SOM (I,J) ,TOM (T ,J) ,BTH (T,J) ,DTHDT (I ,J) , 
ICPHI (T,J) ,SPHI (I, J) ,1=1 ,MM) 

WRITE (NWRIT, 1040) 

■-FOR INCOMPRESSIBLE FLOW, INITIALIZE THE DENSITY (RHO ARRAY) 

270 IF (GAM.NE.O.) RETURN 
DO 280 J=1,MHTP1 
DO 280 1=1, MM 
280 RHO(I,J) = AR 
RETURN 

--FORMAT STATEMENTS 

1000 FORMAT {1H1//42X,48 (1H*) /42X,48H* BLADE GEOMETRY ON INPUT BLADE 
1 SECTIONS */42X,48 (1H*) //) 

1010 FORMAT (///4X,28H** INPUT BLADE PLANE NUMBER, 13, 4H +*//2X,2HIN, 

16X,3HZBL,13X,3HRBL, 13X,4HTHBL,12X,4HTTBL,10X,8HBLOCKAGE,10X, 
25HSZRBL,10X,6HDTHDSP,10X,7HDTHDSP2/(2X,I2,8G16.7) ) 

1020 FORMAT (lHl//35X,57 (1H*) /35X,57H* CONSTANT QUANTITIES ON THE 
1 ORTHOGONAL MESH */35X , 57 ( 1 H*) //4X , 1 HI , 4X, 1 H J , 6X , 3HSO M , 1 2X , 
23HTOM,12X,3HBTH, 11X,5HDTHDT, 10X,4HCPHI, 11X,4HSPHI) 

1030 FORMAT (2I5,6G15.5) 

1040 FORMAT (1H1) 

END 


SUBROUTINE THETOM 

--THETOM CALCULATES THE DERIVATIVES OF THETA WITH RESPECT TO S AMD T 
— DIRECTIONS ON THE ORTHOGONAL MESH 
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COMMON NREAD, NHRIT,ITER,TEND,NHRT1 , NWRT2, NWRT3, NWPT4, NHRT'S, NV)PT6 
COMHON/INPUTT/GAM, AR , MSFL, 0 H EGA , RED FAC, VELTOL , FN EW, DREW , MB I , MRO , 

1 MH,MHT,NBL,NHUB,NTIP,NIN, NOOT, NBLPL, NPPP, HOST AT, NSL,NLOBS, 

2 LSFR,LTPL,LAMVT,LR0T,LBLAD,LETEAN, ANGROT, I MESH, I SEINE, 

3 ISTATL,IPLOT,ISnPER,ITSON,IDEBUG,ZOMIN,ZOHBl,ZOMBO,ZOMOnT, 

4 ROMIN,ROMBI,ROMDO,ROMOUT, ZHIN,ZTIN,ZHOUT,ZTOUT,RHIN,RTIN, RHOtJ'T’ 

5 FTOUT,TITLEI (20) ,ZHUB (50) , RHDB (5 0 ) , ZTI P ( 50) ,RTIP(50) ,SFIN (50) , 

6 RADIN (50) ,TIP (50) ,PRIP(5C) ,LAMIN (50) , VTHIN (50) ,SFODT(50) , 

7 RADO0T(50),PR0P(50), LOSOUT (50) , L AMOUT (50) , VTHOUT (5'') , 

8 BETALE(50) ,BETATE(50) ,ZHST(50) ,ZTST(50) ,BHST(50) ,RTST(50) , 

9 FLFR(50) ,PERCRD(50) ,PERLOS(5?>) ,ZBL(5P,50) ,PBL(50,50) , 

1 THBL (50,50) ,TNBL(5C,50) , T^bL (50 , 50) , T Hi BL (50 , 5''' ) ,TH2BL ( 50, 50) 
COHMON/CALCON/HMM1,MHTP1 , CP, EXPON,TGROG, PITCH, RLEH,RLET,RTEH,RTET 

1 ZLE(50) ,RLE(50) ,ZTF(5C) ,RTE(5'^) , ZLEOH (101) ,RLEOM (1'' 1) , 

2 SLEOM (101) ,THLEOM (101) ,ZTEOM(101) ,PTEOM(10 1) ,STEOM (101) , 

3 THTEOM(IOI) ,ILE(101) ,ITE(101) ,ZOM(1F0,101) ,ROM(100,1C1) , 

4 SOM (100, 10 1 ) , TOM (100,101),BTH(100,10 1), DTHDS (10 7,10 1), 

5 DTHDT (100, 101) ,PLOSS (100,101) ,CPHI ( 1 GO , 1 0 1 ) , SPHI (100,101) 
COMHON/ROTATN/ZHROT (50) ,RHR0T(57) ,ZTROT(5C) ,RTROT(50) , 

1 ZLEOMR (101) ,RLEOMR (101) ,ZTEOMR (101) ,RTEOMR(101) , 

2 ZBLROT(50,5 0) ,RBLROT(50,50) ,ZOHROT(100,101) ,FOMROT(1C'',101) 
COHHON/INDCOM/NBLPC,NPPC,ZPC(51,51) ,RPC(51,51) ,TTPC(51,51) , 

1 THPC(51,51) ,DTHDZ (51,51) , DTHDR (5 1 , 51) ,BTHLE(101) ,BTHTE(101) , 

2 BTBFLE (101) ,BTBFTE (101) 

DIMENSION ANGZ (51, 51) , ANGR (51 ,51) , DTHDS P (5 1 , 5 1) ,DTHDTP (51, 51) , 

1 SZRBL(51),SZRPC(51) ,ZPCT1 (51) ,RPCT1 (51) ,THPCT1 (51) ,TTPCT1 (51) , 

2 ANGT1(51),DTST1(51), ZPCT2 (51) ,RPCT2(51) , 7HPCT2 (51) , TTPCT2 ("^ 1 ) , 

3 ANGT2 (51) ,DTST2 (51) ,DYDK (51) ,D2YDX2 (51) 

NBLPC = 21 

NPPC = 21 
C 

C--CALCDLATE GRADIENTS OF THETA WITH RESPECT TO DISTANCE ALONG INPUT 
C — ZBL,RBL LINES 
C 

C--LOCATE INTERSECTIONS OF INPUT ZBL,RBL LINES WITH LINES FROM 
C--HUB TO TIP AT FIVE PERCENT CHORD INTERVALS 
5 DO 60 JN=1 , NBLPL 

DELZ= (2BLROT (NPPP, JN) -ZBLROT (1 , JN) ) /FLOAT (NPPC-1) 

ZPC(1,JN)= ZBLROT(1,JN) 

DO 10 KN=2,NPPC 

10 ZPC(KN,JN)= ZPC (KN-1 , JN) +DELZ 
C 

C— CALCULATE R COORDINATES AND ANGLES WITH RESPECT TO Z AXIS A"^ 

C — INTERSECTION POINTS 

CALL SPLINT (ZBLROT ( 1 , JN) ,RBLROT ( 1 , J H) , NPPP, ZPC (1 ,JN) ,NPPC, 

1 RPC ( 1, J N) , ANGZ (1,JN) ,D2YDX2) 

DO 20 KN=1,NPPC 

20 ANGZ(KN,JN) = ATAN ( A NGZ ( KN , JN) ) + ANGROT 

— CALCULATE ARC LENGTH ALONG INPUT LINES USING INPUT POINTS 
SZRBL(1)= 0. 

DO 30 IN=2,NPPP 

30 SZRBL(IN) = SZRBL (IN-1) tSQRT( (ZBL (IN, JN) -ZBL (IN-1, JN) ) *»2 
1* (RBL (IN,JN) -RBL (I N- 1 , JN) ) * *2) 

C 

C — CALCULATE ARC LENGTH ALONG INPUT LINES USING POINTS AT FIVE 
C--PERC1NT OF CHORD 
SZRPC (1) = 0 . 

DO 40 KN=2,NPPC 



c 

c- 


c 

c- 

c- 


c 

c- 

c- 

c 

c 

c- 

c- 


c 

c- 


c 

c- 


c 

c- 

c- 


40 SZRPC(KN) = SZBPC(KN-I) +SQET ( (ZPC(KN,JN) -ZPC(KN-1,JN) )**2 

1 + (RPC (KN, JN) - RPC (KN-1,JN))**2) 

-CALCPLATE THETA AND CHANGE OF THETA HTTP ARC LENGTH ALONG INPOT LINES 

clLL^S?o!nSZRBL!?HB?(i*;jN),NPPP,SZRPC,NPPC,THPC(1,JN) , 

1DTHDSP(1 ,JN) ,D2YDX2) 

5C DTHDSL = TAN (BETALE (JN) /57. 205780) /RBL (1 ,GN) 

nTHnPT’ = tan (BETATF (JN) /57. 205780) /RHL (NPPP.JN) 

cI^r5PlN”lSZBBL,Tl5BL(1,JN),»PPP.DTHDSl,I.THDST,SII!PC,!.PrC, 

1T'IPC(1,JN) pDTHDSP (1 , JN) ,D2YDX2) 

55 CONTINUE 

-CALCULATE BLADE THICKNESS IN THETA DIRECTION AT POINTS AT 

■■"''cA[rs?nN?(SzSXTTBL(1,JN),NPPP,SZRPC.NPPC,TTPC(1,aN),DYDX, 

1D2YDX2) 

60 CONTINUE 

-CSLCIIIATE C,RADIE»T OF THETA WITH RESPECT TO DTSTAHCE HP FIVE PERCE8T 
--CHORD ZPC,RPC LINES 

DO 13C KN=1,NPPC 

--STORE DATA AT FIVE PERCENT CHORD POINTS ON INPUT BLADE PLANES INTO 
-TEMPORARY ARRAYS FOB SPLINT CALLS 
DO 70 JN=1 , NBLPL 
ZPCT1 (JN) = ZPC (KN, JN) 

FPCT1 (JN) = RPC (KN,JN) 

THPCT1 (JN) = THPC(KN,JN) 

TTPCT1 (JN) = TTPC(KN,JN) 

ANGTI (JN) = ANGZ(KN,JN) 

70 DTST1 (JN) = DTHDSP (KN, JN) 

-CALCULATE ARC LENGTH UP FIVE PERCENT CHORD LIMES 

RC s?BBL(oSr = '‘°2»BI -SORT ( (IPCTl (JH) -JPCT 1 (OH- D ) ** 2 

1 + (RPCTI (JN) -RPCTI (JN-1) ) ** 2 ) 

--CALCULATE POINTS ON THE ALTERNATE MESH 

DELR = (RPC (KN , NBLPL) - RPC (KN , 1) ) /FLOAT (NBLPC-1) 

RPCT2(1) = RPC(KN,1) 

DO 90 LN=2,NBLPC 

?AjripriNnRSl‘zPcil'NBipL,RPCT2,NBLPC,ZPCT2,DYDX,D2YDX2) 

-CALCULATE ARC LENGTH AND ANGLE WITH RESPECT TO R UP FIVE PERCENT 
-CHORD LINES ON THE ALTERNATE MESH 

ANGR(KN,1) = ATAN(DYDX (1)) -ANGROT 

SZRPC°(LN)”"='szS (LN-1) ^SQRT( (RPCT2 (LN) -RPCT2 (LN-1) ) 

U (ZPCT2 (LN) -ZPCT2 (LN-1) ) **2) 

ICO ANGR(KN,LN) = ATAN (DYDX (LN) ) -ANGROT 

-CALCULATE THETA AND CHANGE OF THETA WITH RESPECT TO ARC LENGTH DP 

■‘”''cALrSPLLT”slRBL!?SpCTl, NBLPL. SZRPC,NBLPC,THPCT2, DYDX, D2YDX2) 

DO 110 LN=1 ,NBLPC 
110 DTHDTP (KN,LN) = DYDX (LN) 


C 

C- 

c- 


130 


o o 


c 

c- 

c- 

c- 


c 

c- 

c- 


'NBLPL,SZRPC,NBLPC,ANGT 2 oynx D2YnY7» 
CALL SPLINT{SZRBL.DTST1,NBLPL,SZRPC NBLPcIdTStI 

CELL S>>LI»T,SE»BL,TTPC.n»BLp{,3Z,pc,SBLPc”?Jc;2!”DL'”^^^^^^ 

-STORE CALCULATED 
-HESH 

DO 120 LN=1,NBLPC 
ZPC(KN,LN) = ZPCT2(LN) 

RPC{KN,LN) = RPCT2(LN) 


VALUES IN two-dimensional ARRAYS ON THE ALTERNATE 


120 

130 


C 

C- 

C- 

C 


THPC(KN,LN) = 
TTPC(KN,LN) = 
ANGZ(KN.LN) = 
DTHDSP (KN,LN) 
CONTINUE 


THPCT2 (LN) 
TTPCT2 (LN) 
ANGT2 (LN) 

= DTST2(LN) 


-MEsS”^''’’^ »THDTP ON THE ALTERNATE 

DO 140 LN=1,NBLPC 
DO 140 KN=1,NPPC 

COSAB= COS (ANGZ (KN, LN) +ANGR (KN, LN) ) 

.SIN , 

--INTERPOLATE TO OBTAIN DTHDZ AND DTHDB AT TRE POINTS OP THE ORTHOGONAL 

■-rHrGNASfEN?? srTSE?r;»'’T"„rr?sr?^;„'Ec"Tio»r""" 

II = 1 
jj = 1 

DO 150 J=1,HHTP1 
ILEJ = ILE (J) 

ITEJ = ITE(J) 

DO 150 I=ILEJ,ITEJ 

--PRINT DEBUG BLADE GEOMETRY ON ALTERNATE MESH 
IF (IDEBUG.LE.O) RETURN 
HRITE(NWRT5,1000) 

. **"*^™^' LN,ZPC (KN,LN) , RPC (KN.LNi TBPr iifN t »m 
^r»fr *onT«m^ '*^^^’^^^^’^*^'^”J'®THDTP(KN,LN) ,KN=1,NPPC) LN-1^NBLPC> 

CALL ROTATE(ANGROT,ZFC,RPC,NPPC,NBLPC,51.51 ZPC RPri ' ^ 

VRITE(NNRT5,1020) ^ ,ZPC, RPC) 

RETURN 
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C--PORHiVT STATEMENTS 

1000 FORMAT (1 H1//25X, 7 8 ( 1 H*) /2 5X , 78H* BLADE GEOME'^RY ON ALTERNATE M 

1ESH 21 HOB-TO-TIP * 21 L.E.-TO-T.E. */25X,78 (1 H*) /// 

23X,2HKN,3X,2HLN,6X,3HZPC,13X,3HPPC,13X,4HTHPC.12X,4HTTPC,11X, 

36HDTHDSP, 10X, 6HDTHDTP//) 

1010 FORMAT (2I5,6G16.7) 

1020 FORMAT (1H1) 

END 


SDBROOTINE THIKOM 

'-THIKOM CALCOLATES THE BLADE THICKNESS IN THE THETA DIRECTION AT 
--THE POINTS OF THE ORTHOGONAL MESH 

COMMON/INPDTT/GAM, AR , HSFL, OMEGA , REDFAC, VELTOL, FNEH, DNEH ,MBT , MBO, 

1 MM,HHT,NBL,NHDB,NTIP,NIN,NOOT,NBLPL, NPPP,N0STAT, NSL,NLOSS, 

2 lsfr,ltpl,lamvt,lrot,lblad,letean,angrot,imesh,tsline, 

3 isTATL,IPLOT,ISOPER ,ITSON, IDE bog, ZOMIN, zombi, ZOH bo, ZOMODT, 

4 robin, ROMBI, ROMBO, R0M0DT,ZHIN,ZT IN, ZHOOT,ZTOUT,RHIN,RTIN,RHOOT, 

5 RTOOT,TITLEI (20) ,ZHDB(50) ,RHOB(50) ,ZTIP(50) ,RTIP (50) , SPIN (50) , 

6 RADIN(50) , TIP (50) ,PRIP (50) ,LAHIN (50) ,VTHIN(50) ,SFOOT(50) , 

7 RADOOT(50) ,PROP(50) ,LOSODT(50) ,LAMOOT(50) ,VTHOOT(50) , 

8 BETALE(50) ,BETATE(50) ,ZHST (50 ) , ZTST (50) , RHST (50) ,RTST(50) , 

9 FLFR(50) ,PEBCBD(50) ,PERLOS(50) ,ZBL(50,50) ,RBL(50,50) , 

1 THBL (50,50) ,TNBL(50,50) ,TTBL(50,50) ,TH1BL (50,50) ,TH2BL ( 50, 50) 

COHMON/CALCON/HHMI, MRTP1, CP, EXP0N,TGR0G, PITCH, RLEH,RLET,RTEH,RTET, 

1 ZLE(50) ,RLE(50) ,ZTE(50) ,RTE(50) ,ZLEOH(101) ,RLE0M (101) , 

2 SLBOM (101) ,THLEOM (101) ,ZTEOM(101) ,RTEOM(101) ,STEOM (101) , 

3 THTEOM(IOI) ,ILE(101) ,ITE(101) , ZOH ( 100 , 10 1 ) , ROM (ICO , 101) , 

4 SOM (100,101) ,TOM (100,101) ,BTH (100, 10 1) ,DTHDS (100, 101) , 

5 DTHDT(100,101) ,PLOSS (100,101) ,CPHT (1 00 , 1C 1) ,SPHI (100,10 1) 
COMMON/ROTATN/ZHROT (50) ,BHROT(50) ,ZTROT(50) ,PTROT(50) , 

1 ZLEOMR (101) ,HLEOMR(101) ,ZTEOMR ( 1 0 1 ) , RTEOHR ( 10 1) , 

2 ZBLROT(50,50) , RBLROT ( 50 , 50) ,ZOMROT ( 1 00 , 1 0 1 ) ,ROMROT ( 1 00 , 10 1 ) 
C0MH0N/INDC0M/NBLPC,NPPC,ZPC(51,51) ,RPC(51,51) ,TTPC(51,51) , 

1 THPC(51,51) ,DTHDZ (51,51) ,DTHDR (51,51) ,BTHLE(101) ,BTHTE(101) , 

2 BTBFLE (101) ,BTBFTE (101) 

DIMENSION DIST (50) ,DTH (50) ,DISEOM(101) ,DTHEOM (101) , 

1 AAA(IOI) ,BBB(101) 

--CALCULATE STREAM CHANNEL THICKNESS ARRAYS AT LEADING AND TRAILING 
— EDGES, BTHLE AND BTHTE 

DIST(1) = O. 

DTH(1) = TTBL(1,1) 

DO 30 JN=2,NBLPL 

DIST(JN) = DIST (JN-1) +SQRT { (ZBL(1,JN) -ZBL(1 , JN-1) ) **2+ 

1 (RBL(1,JN) -RBL(1 ,JN-1) ) ** 2 ) 

30 DTH(JH) = TTBL(1,JN) 

RBLH = RBL(1,1)*COS(ANGROT) -ZBL(1,1)*SIN(ANGROT) 

DISEOH(I) = SQRT ((ZLEOM (1) -ZBL(1, 1) ) *♦2* (RLEOM(I) -RBL (1, 1) ) **2) 
DISEOM(I) = SIGN (DISEOM (1) ,RLEOMR (1) -RBLR) 

DO 40 J=2,MHTP1 

40 DISEOM(J) = DISEOM (J-1) +SQRT( (ZLEOM (J) -ZLEOM(J-I) ) + 

1 (RLEOH(J)-RLEOM(J-I) )**2) 

CALL SPLINT (DIST , DTH, NBLPL, DISEOM, MHTP1 , DTHEOM, AAA, BBB) 

DO 50 J=1,MHTP1 
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50 BTHLE(J) = PITCH-DTHEOM (J) 

DTH(1) = TTBL(NPPP,1) 

DO 60 JN=2,NBLPl 

DIST(JN) = DIST(JN-I) +SQRT( (ZBL(NPPP,JN) -ZBL 
1 (RBL(SPPP,JN) -RBL{8PPP, JN-1) ) **2) 


(NPPP,JN-1) ) 


♦♦ 2 ^ 


to DTH(JN) = TTBL (NPPP, JN) 

RBLH = RBL (NPPP, 1) *COS (ANGROT) -ZBL (NPPP, 1 ) *SIN (ANGROT) 

DISEOH(I) = SQRT((ZTEOM (1) - ZBL(NfPPP,1)) **2+ {RTEOM(1)-RBL(NPPP,1 

DISEOH(I) = SIGN (DISEOM (1) ,RTEOMR(1) -RBLR) 

DO 70 J=2,BHTP1 

70 DISEOM(J) = DISEOM (J-1) fSORK (ZTBOB (J) -ZTEOM (J-1) ) **2 + 

1 (BTEOH (J) -RTEOM (J-1) ) **2) 

CALL SPLINT (DIST , DTH , N BLPL, DISEOM, M HTP 1 , DTHEOH, AAA , BBB) 

DO 80 J=1,MHTP1 ' 

80 BTHTE(J) = PITCH-DTHEOM (J) 


C--INTERPOLATE TO OBTAIN BLADE THICKNESS IN THETA DIRECTION AT THE 
C--POINTS OF THE ORTHOGONAL MESH, AND CORRECT BTH IN BLADE REGION 


II = 1 
JJ = 1 

DO 90 J=1,MHTP1 
ILEJ = ILE (J) 

ITEJ = ITE(J) 

DO 90 I=ILEJ,ITEJ 

CALL LININT (ZPC,RPC,TTPC,NPPC,NDLPC,51,51,ZOMROT(I,J) . 
1ROHROT(I,J) ,DBTH,II,JJ) 

BTH(I,J) = BTH (I,J) -DBTH 
90 CONTINUE 
RETURN 
END 


) 


SUBROUTINE INIT 


•-INIT ASSIGNS INITIAL VALUES TO THE ARRAV VARIABLES 


1 


COHHON/INPUTT/G AM, AR,MSFL, OMEGA, RED FAC, VELTOL,FNSW,DNEH,MBI,HSO, 
HM,MHT,NBL,NHUB,NTIP,NIN, NOUT, NBLPL,NPPP, NOSTAT, NSL , NLOSS , 
LSFR,LTPL, LAMVT, LROT , LBL AD , LETE A N, ANGROT , IHESH, ISL IN E, 
ISTATL,IPLOT, ISUPER,ITSON, IDEBUG , ZOHIN, Z OHBI , ZOHBO, ZOHOUT , 
FOMIN, ROMBI, ROM BO, ROMOUT , ZHIN , ZTIN, ZHOUT, ZTOUT, RHIN , HTIN, R HOUT, 
RTOUT,TITLEI (20) ,ZHUB(50) ,RHU3(50) , ZTIP (50) ,RTIP(50) ,SFIN(50) 
RADIN (50) , TIP (50) , PRI P (50) ,L A MIN (50) , VTHIN(50) ,SFOUT (50) , 

RADOUT (50) ,PROP (50) , LOSODT (50) ,LAMOUT (50) ,VTHOUT (50) , 

BETA LE (50) , BET ATE (50) ,ZHST (50) ,ZTST(50) ,RHST(50) ,RTST(50) , 

FLFR (50) ,PERCRD(50) ,PERLOS (50) ,ZBL(50,50) ,RBL(50,50) , 
THBL(50,50) ,TNBL(5O,50) ,TTBL(5C,50) , TH1BL (50 ,50) ,TH2BL ( 50 , 50 ) 
COMHON/CALCON/MMMI ,MHTP1 ,CP , EXPON,TGFOG, PITCH, RLEH, FLET, RT EH, RTET, 
1 ZLE(50) , RLE (50) , ZTE (50) , RTE (50) , ZLEOM (10 1) ,PLEOM (101) , 

SLEOM (10 1) , THLEOM (10 1 ) , ZTEOH (101) , RTEOM (101) ,STEOM (101) . 

THTEOM (101 ) , ILE (10 1) ,ITE (1 0 1 ) , ZOM ( 100 , 10 1) , ROM (100, 101) , 

SOM (100, 101) ,TOH (100, 101) , BTH (100, 101) ,DTHDS (100,101) 

DTHDT(100,101) ,PLOSS(100,101) ,CPHI(100,101).SPHI(100,101) 

COMMON/VARCOM/A (9 , 1 00 , 1 0 1) , UOM (1 00 , 10 1 ) , K ( 100 , 10 1) , RHO ( 100 , 1 0 1) , 


8 


1 


13 ? 


noon 


1 WSOBS (100,101) , WSOBT (100, 101) ,WSUBZ (100, 101) , WSOBR ( 1 00 , 10 1) , 

2 WSDBM (100,101) ,HTH (100,101) , VTH ( 1 00 , 10 1 ) , H (100,1 01 ) , 

3 ALPHA (100, 101) ,BETA (100,101) , WWCR ( 1 0 0 , 10 1 ) , CUR V ( 10 0 , 10 1 ) , 

4 WLSORF (100, 101), HTSORF ( 1 OC , 1 0 1) , CAMP ( 100 , 1 0 1 ) , S AMP ( 1 00 , 10 1 ) , 

5 RHOAV (100, 101) ,DELRHO (1 00 , 10 1 ) , FT (100 , 10 1 ) , DFDM (10 0, 101) , 

6 XIOM (100,101) ,ZETOM (100,101) , DLDU ( 1 00 , 10 1 ) 

REAL K,LAHDAF 

DO 10 J=1,MHTP1 
A(1,1,J) =0. 

A(2,1,J) = 0. 

A(4,1,J) = 1. 

A (1 ,MM, J) = 0. 

A (2,MH, J) = 0. 

A(3,HH,J) = 1. 

DO 10 1=1, MM 
WSOBS(I,J) = 1. 

WSUBT (I, J) = 0 . 

WSUBZ(I,J) = 1. 

H(I,J) = 0. 

HTH(I,J) = 0. 

VTH (I,J) = 0. 

DELRHO(I,J) = 0. 

XIOM (I, J) = 0 . 

ZETOH(I,J) = 0. 

FT(I,J) = 0. 

DFDM(I,J) = 0. 

DLDU(I,J) = 0. 

SAMP(I,J) = 0. 

CAHP(I,J) = 1. 

K (I, J) = 0 . 

PLOSS(I,J) = 0. 

IF (GAM. EQ. 0. ) GO TO 10 

OIJ = TOM (I,J) /TOM (I, MHTP1) * (ROM (I, J) +RCH (I, 1) )/ 

1 (ROM (I, MHTPl) +ROM (I, 1) ) ( 

TPPTIP = 1.0- (2.*OMEGA*LAMDAF(OIJ,I,J)- (OMEGA*ROM(I,J) )**2)/ 

1 (2.*CP*TIPF (UIJ) ) 

RHO(I,J) = RHOTPF (OIJ) *TPPTIP**EXPON 
1C RHOAV(I,J) = RHO(I,J) 

RETURN 

END 


SUBROUTINE COEF 

— COEF CALCULATES COEFFICIENTS, A AND K, 

— FOR THE SYSTEM OF MATRIX EQUATIONS, A*U=K 

COMMON N RE AD, N WRIT, ITER, TEND, NHRTI, NWRT2, NWRT3, NWRT4, NWRT5 , NWRT6 
COHMON/INPUTT/GAM, AR, MS FL, OMEGA, REDFAC, VELTOL, FNEW, DNEH , HBI , HBO, 

1 MH,MHT,NBL,NHOB,NTIP,NIN,NOUT,NBLPL,NPPP,NOSTAT,NSL,NLOSS, 

2 LSFR, LTPL,LAMVT,LROT,LBLAD,LETEAN,ANGROT,IMESH,ISLIHE, 

3 ISTATL,IPLOT,ISOPER,ITSON, IDEBDG,ZOMIN,ZOMBI,ZOHBO,ZOMOUT, 

4 ROHIN,ROMBI,ROMBO,ROMOUT,ZHTN,ZTIN,ZHOOT,ZTOOT,HHIN,HTTN,RHOUT, 

5 RTOUT,TITLEI(20) ,ZHOB(50) ,RHOB(50) ,ZTIP(50) ,RTIP(50) ,SFIN(50) , 

6 RADIN (50) ,TIP (50) ,PRIP(50) ,LAMIN (50) , VTHIN(50) , SPOUT (50) , 

7 RADOOT (50) ,PROP (50) ,LOSOUT (50) ,L ABOUT (50) , VTHOOT (50) , 
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8 BETALE(50) ,BETATE(50) ,ZHST(50) ,ZTST(8'') ,RHST(5'^) ,RTST(5'') , 

9 FLFP (50) ,PERCRD(50) , PER LOS (50 ) , Z BL (50 , 50 ) , RBL ( 50 , 50) , 

1 THBL(50,5C) ,TNBL(50,5C) , TTBL { , 50) , TH 1 BL (50 , 50) ,TH2 BL ( 50 , 50 ) 

COM HON/CALC ON/M MM 1 , MHTP1 ,CP , EXPON,TGROG, PITCH, RLEH, RL ET, RT EH, RT ET , 

1 ZLE(5C) ,RLE(50) ,ZTE(5C) ,FTE(5^) ,ZLE0M(101) ,RLEOH(101) , 

2 SLEOH(IOI) ,THLFOM(101) ,ZTEOM(101) ,RTEOM(101) ,STE0M (101) , 

3 THTEOM (101) ,TLE ( 1 C l ) , ITE ( 1 0 1 ) , ZOM ( 10 0 , 10 1 ) , ROM (100 ,101) , 

4 SOM (100, 10 1) ,TOM ( 1 C 0 , 10 1 ) , BTH ( 1 0 0 , 1 C 1 ) , DTHDS ( 1 00 , 1 0 1 ) , 

5 T)THDT (100, 101 ) ,PLOSS (100,101),CPHI(1CO,101),SPHI(10"),1'^1) 
COMMON/VARCOM/A (4, 100,101), UOH (100, 101) ,K (100,101) , RRO ( 100 , 1 1 ) , 

1 WSUBS (100, 101 ) ,MSUBT ( 100 , 1 0 1 ) , WS OBZ ( 100 , 1 0 1 ) , WSHBP ( 1 00 , 1 0 1 ) , 

2 HSUBM (100, 101 ) , WTH (100, 1 01) , VTH (ICO, 10 1) , W ( 100 , 1 G1 ) , 

3 ALPHA (100,101) ,BETA (100, 101) , WHCR ( 1 CO , 10 1 ) ,COR V ( 10 0 , 1 0 1 ) , 

4 HLSURF(100,101) ,WT5URF( 100,101) , CAMP (100 , 10 1) , SAMP (100, 101) , 

5 RHOAV (100, 101) , DELPHO (100,101) , FT (ICO, 101) , DFDH ( , 10 1 ) , 

6 XIOM (100,101) ,ZETOM ( 100 , 10 1) , DLDU (100, 10 1) 

DIMENSION DVTHDT (100, 101) 

REAL MSFL,K,KNEW 

--CALCDLATE COEFFICIENTS AND CONSTANTS FOR FINITE DIFFERENCE EQUATIONS 

WRITE (NNRIT, 1000) ITER 
DCHANG = 0. 

DMAX = -1.E20 

DHIN = 1.E2C 

MHM1 = MM-1 

DO 50 J=2,MHT 

H4 = SOM (2, J) -SOM (1, J) 

DO 50 I=2,MHM1 

IF (ITER.EQ.1) DVTHDT (I, J) =0. 

HI = TOM (I, J) -TOM (I, J-1) 

H2 = TOM (I, J+1) -TOM (I, J) 

H3 = H4 

H4 = SOM (1 + 1, J) -SOM (I, J) 

Cl = H1+H2 
C2 = H3+H4 

IF (ABS (CPHI (I,J) ) .LT.0.707) GO TO 10 
DELPHS = (SPHI (1 + 1 ,J) -SPHI (1-1, J) ) /CPHI (I,J) 

DELPHI = (SPHI (I, J+1 ) -SPHI (I, J-1) ) /CPHI (I, J) 

GO TO 20 

10 DELPHS = (CPHI (1-1, J) -CPHI (1 + 1, J) ) /SPHI (I, J) 

DELPHI = (CPHI (I,J-1)-CPHI (I,J+1))/SPHI(I,J) 

20 D1 = (BTH(I,J + 1) -BTH(I,J-1) )/BTH(I,J) +(RHO(I,J + 1) -RHO(I,J-1))/ 

1RHO (I, J) 

D1 = D1/C1+CPHI (I,J) /ROM (I, J) +DELPHS/C2 

D2 = (BTH (1 + 1 , J) -BTH (1-1 ,J) ) /BTH (I, J) ♦ (RHO(I+1 ,J) -RHO (1-1, J) )/ 

1RHO (I,J) 

D2 = D2/C2 + SPHI (I,J) /ROM (I, J) -DELPHT/C1 

AO = 2./H1/H2+2./H3/H4 

A(1,I,J) = (2./H1+D1) /AO/Cl 

A(2,I,J) = (2./H2-D1) /AO/Cl 

A(3,I,J) = (2 ./H3+D2) /A0/C2 

A(4,I,J) = (2./H4-D2) /A0/C2 

KNEW = XIOM (I, J) *W (I,J) **2 + ZETOM (I, J) 

IF (I.GE.ILE(J) . AND.I.LE.ITE(J) ) GO TO 30 

KNEW = KNEW + WTH (I, J) /MSFL*BTH (I , J) *RHO ( I , J) * WSUBS (I,J) *DLDO (I, J) 

GO TO 40 

30 DVTEMP = (ROM (I, J+1) *VTH (I, J + 1) -ROM (I,J-1) *VTH (I,J-1) ) /Cl 
DCH = ABS (DVTEMP-DVTHDT (I, J) ) 
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DCHANG = AMAX1 (DCHANG, DCH) 

IF (DCHANG. EQ. DCH) ICH = I 
IF (DCHANG. EQ. DCH) JCH = J 
DHAX = AHAX1 (DMAX,DVTEMP) 

DMIN = AMIN1 (DBIN,DVTEMP) 

DVTHDT(I,J) = DNEW*DVTEMP-t- (1 . -DNEW) *DVTHDT (I, J) 

KNEW = KNEH + WTH (I, J) /non (I, J) *DVTHDT (I, J) +FT (I, J) 

IF (GAH.EQ.C.) KNEW=KNEW+OMEGA*(LABDAF(nOt 1 (I,J* 1 ),T,.T<- 1 )- 
1LAHDAF(UOM ( I , J- 1 ) , I , J- 1 ) ) /C 1 

UG KNEW = KNEW*BOH (I, J) /A1 + BTH (I,J) /I1SFL*RH0(I, J)/W.GDBS (I, J) 

K(I,J) = KNEW 
50 CONTINUE 

IF (ITER.GT.1) WRITE (NWEIT, 10 10) DCHANG, ICH, JCH, DVTHDT (ICH, JCH) , 
1DHAX,DMIN 

--PFINT DEBUG OUTPUT 

IF (IDFBUG.LE. 0) RETURN 

IF ( (ITER/IDEBUG) *IDEDUG. NE. ITER. AND. ITER. NE. 1) RETURN 
WPITE(NWRT5,1020) 

DO 60 J=2,MHT 
DO 60 1=1, BM 

60 WRITE(NWRT5,1030) I , J, ( A (I J , I , J) , T J= 1 , 4) , K (I , J) 

WRITE (NWRT5,1040) 

RETURN 

--FORMAT STATEMENTS 

100C FORMAT (/////1X,22 (1H*) /IX, 16H* ITERATION NO.,I3,3H */1X, 22 (1 H*) ) 

1010 FORMAT (//5X,26HHAXIMUM CHANGE IN DVTHDT =, G1 3. 5, 1 IX, 6HAT I =,I3, 
15H, j =,I3, 1H,,6X,14HWHERE DVTHDT = , G1 3 . 5/5X , 26HMA XIM UM VALUE OF 
2DVTHDT =,G 1 3. 5/5X,26HMINIMTJM VALUE OF DVTHDT =,G13.5) 

1020 FORMAT ( 1 H 1 //30X , 67 ( 1 H* ) /30 X , 67H+ COEFFICIENTS OF MATRIX EQU 
1ATION FOR STREAM FUNCTION V30X , 6J ( 1H*) /// 5X , 1 HI , 5X , 1 H J , 

26X,4HA(1) ,12X,4HA(2) ,12X,4HA(3) ,12X,4HA(4),13X, IHK//) 

1030 FORMAT (2I6,5G16.6) 

040 FORMAT (1H1) 

END 


SUBROUTINE SOR 

-SOR SOLVES THE SET OF MATRIX EQUATIONS, A*U=K 
-BY THE SUCCESSIVE OVERRELAXATION TECHNIQUE 

COMMON NREAD,NWRIT,ITER,IEND,NWRT1, NHBT2,NWRT3,NWRT4, NWRT5, NWRT6 
COMMON/IN POTT/GAM, AR , MS FI, OMEGA, REDFAC, VELTOL, FNEW, DNEW , MBI , MBO , 

1 HH,MHT,NBL,NHOB,NTIP,NIN,NOUT, NBLPL, NPPP, NOSTAT, NSL,NLOSS, 

2 LSFR,LTPL, L AM VT , LROT, LBLA D, LETE AN, ANGROT, IMESH ,TSLINE, 

3 TSTATL,IPLOT,ISUPER,ITSON,IDEBOG,ZOMIN,ZOMBI,ZOHBO,ZOMOUT, 

4 ROMIN,ROMBI,ROMBO,ROHOUT,ZHIN,ZTIN,ZHOUT,ZTOUT,RHIN,RTIN,RHOUT, 

5 RTODT,TITLEI (20) ,ZHUB(50) ,RHOB(50) , ZTIP ( 50) , RTIP (50) , SFIN (50 ) , 

6 RADIN (50) , TIP (50) , PRIP (50) , L AMIN (50) ,VTHTN(50) ,SFOUT (50) , 

7 HADOUT(50) ,PROP(50) ,LOSOUT(50) ,LAHOOT(5C) ,VTHODT(50) , 

8 BETALE (50) , BETATE (50) ,ZHST (50) , ZTST (50) , PHST (50) ,RTST(50) , 

9 FLFR (50) ,PERCRD(50) , PER LOS (50) ,ZBL (50,50) ,RBL (50,50) , 
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1 THBL (50,50) ,TNBL(50,5C) ,TTBL (50 , 50) , THi BL (50 , 50 ) ,TH2BL ( 50 , ) 

COMNON/CALCON/MMM1,MHTP1,CP,EXPON,TGBOG,PITCH,RLEH,RLET,RTEH,RTET, 

1 ZLE (50) ,RLE (5C) , ZTE (50) , PTE(5C) , ZLFOM (101) ,RLEOM (101) , 

2 SLEOM (101) , THLEOM (10 1 ) ,ZTEOM (101) , RTEOM (101) ,STEOH (101) , 

3 THTEOM (101) , ILE ( 10 1) , ITE (101) ,ZOM ( 100 , 10 1 ) , RON ( 1 00 , 1 0 1 ) , 

4 SON (100, 10 1 ) , TOM (100 , 10 1 ) , BTH (100 , 10 1) ,DTHDS ( 100, 10 1) , 

5 DTHDT(100, 101) , PLOSS ( ICO , 1 0 1 ) ,CPHI (100, 10 1) ,SPHI (100,101) 
COHMON/VARCOM/A ( 4, 10 0 , ini) ,nOM(ino, 101) ,K(1C 0,101) , RHO (100,101) , 

1 HSUBS (100,101), WSUBT ( 100 , 1 0 1 ) , HS UB2 ( 1 00 , 10 1) , HStJPR ( 1 00, in 1 ) , 

2 WSOBM (100, 101) ,WTH(10C,101),VTH(1CO,101) , W (100,101) , 

3 ALPHA (100,101) , BETA ( 1 OC , in 1 ) , hwcR ( 100 , 10 1 ) , CUR V ( 100 , 1 0 1 ) , 

4 HLSURFdOO, 101) , «TS URF ( 1 Cn , 1 0 1 ) , CAMP ( 1 CO , 1 0 1 ) ,SAMP(100, 101) , 

5 RHOAV (100,101) ,DELRHO(100,101) ,FT(1C0,1C1) , DFDM (100 , ini ) , 

6 XIOM (100,101) ,ZETOM(1CO,1C1) , DLDU ( 100 , 10 1 ) 

REAL K,LMAX,LMIN 

— AFTER FIRST ITERATION, JUST SOLVE EQUATION BY SOR 

IF (ITER.GT.1) GO TO 70 

--FIRST ITERATION ONLY, CALCULATE OPTIMUM ORF 

— SET BOUNDARY VALUES TO ZERO, AND INTERIOR VALUFS TO ONE 
DO 10 1=1, MM 
UOM(I,1) = 0. 

10 UOH(I,HHTP1) = 0. 

DO 20 J=2,MHT 
DO 20 1=1, MM 
20 UOH(I,J) = 1. 

--CALCULATE OPTIMUM ORF 
ORFHAX = 2.0 
ICOUNT = 0 
30 LMAX = 0. 

LMIN = 1. 

ORF = ORFMAX 
ICOUNT = lCODNT+1 
DO 40 J=2,NHT 
DO 40 1=1, MM 

UNEH = A (1 , I, J) *UCM (I, J-1) + A (2,1, J) *UON (I, J + 1) 

IF (I.NE.1) UNE«=UNEH+A (3,1, J) *UOM (I-1,J) 

IF (I.NE.MM) ONEH=UNEH + A (4, I, J) *UOH (I+1,J) 

RATIO = UNEH/UOM (I, J) 

LMAX = AHAX1 (LMAX, RATIO) 

LMIN = AMIN1 (LMIN, RATIO) 

40 OOM(I,J) = ONEB 

IF (LMAX.GT.1.) LMAX=1. 

ORFHAX = 2./(1. + SQRT(1.-LMAX)) 

ORFMIN = 2./(1.+SQRT(1.-LMIN) ) 

IF (( ORFMAX -ORFMIN).GT. (2. -ORFMAX) .OR. (ORF-ORFH AX) . GT . 0. 00 0 5) 

1 GO TO 30 
ORF = ORFMAX 
HRITE (NHRIT,1000) ORF 

C — RESTORE U BOUNDARY VALUE AT SHROUD 
DO 50 1=1, MM 
50 UOM(I,MHTPl) = 1. 

C 

C--SOLVE MATRIX EQUATION BY SOR 
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7C ERROR = 0. 

DO 80 J=2,MHT 
DO 80 T=1,H(! 

CHANGE = A (1,1, J) *UOM (I, J-1) +A (2,1, J) *nOM (T, J+1) +K (I, J) -UOH ( I , J ) 
TF (I.NE.1) CHANGE=CHANGE + A (3, I,J) *DOn (T-1 ,.J) 

IF (I.NE.HH) CHANGE = CHANGEtA(4,T,J) ♦DCH (T+1,J) 

CHANGE = ORF*CHANGE 

ERROR = AHAX1 (ERROR, ABS (CHANGE) ) 

8C UOM(I,J) = DOM (I, J) +CHANGE 
IF(ERROR. GT. 1 . E-5) GO TO 70 
RETURN 

1000 FORMAT (//5 X , 4 0 HCALCDL AT ED OVERRELAXATTON FACTOR (OFF) =,F7.3) 
END 


SUBROUTINE LOSSOH 
C 

C--LOSSOM COMPUTES THE RATIO OF ACTUAL TO IDEAL RELATIVE TOTAL PRESSURE 
C--AT THE DOWNSTREAM INPUT STATION, AND THEN DISTRIBUTES THIS LOSS ON 
C--THE ORTHOGONAL MESH AS SPECIFIED BY THE INPUT 
C 

COMMON NREAD,NHRIT,ITER, IEND,NHRT1 , NHRT2, NWPT3 , NHRT4 , NWRT5 , NWRT6 
COMMON/INPUTT/GAH, AR , MS FL, OMEGA, FEDF AC, V ELTOL, FN EW, DN PH , MB I , M BO , 

1 MH,MHT,NBL, NHUB,NTIP, NIN,NOUT, NBLPL, NPPP, NOSTAT, NSL, NLOSS , 

2 LSFP, LTPL,LAM VT, LROT, LBLAD,LETE AN, ANGROT, IMESH, ISLTNE, 

3 ISTATL, IPLOT, ISUPER, TTSON, IDEBUG,ZOMIN,ZOMBT,ZOMBO,ZOMOUT, 

4 ROMIN,ROMBI,ROMBO,ROMOUT,ZHIN,ZTIN,ZHODT,ZTOUT, RHIN,RTIN, RHOUT, 

5 RTOUT,TITLEI (20) ,ZHUB(S0) ,RHUB(50) ,ZTIP(50) ,BTTP(50) ,SFTN(50) , 

6 RADIN (50) , TIP (50) , P RIP (5 0 ) , L A MI N (50) , VTHIN (50 ) ,SFOUT (50) , 

7 RADOUT (5C) , PROP (50) ,LOSOUT (50) ,LAMOOT (50) ,VTHOUT (50) , 

8 BETALE(50) , BET ATE (50) ,ZHST (50) ,ZTST (50) , RHST (50) ,RTST (5Q) , 

9 FLFR (50) ,PERCRD (50) ,PERLOS (50) , ZBL(50, 50) , RBL (50,5 0) , 

1 THBL(50,50) ,TNBL (50,50) ,TTBL(50,5G) , TH 1 BL (50 , 50) , T H2BL ( 50 , 50) 

COMMON/CALCON/MHMI ,MHTP1 ,CP,EXPON,TGROG,PITCH,RLEH,RLET,RTEH,RTET, 

1 ZLE(50) , RLE (50) , ZTE (50) , RTE (50) ,ZLEOM(101) ,RLEOH (101), 

2 SLEOM (10 1) ,THLEOM (101) ,ZTEOM (101 ) ,RTEOM (101) ,STEOM (101) , 

3 THTEOM (101) ,ILE (101) ,ITE (101) , ZOM ( 100 , 10 1 ) , ROM ( 1 00 , 10 1 ) , 

4 SOM (100, 101) ,TOM (100,101) ,BTH(100,1C1) ,DTHDS (100, 101) , 

5 DTHDT (100, 10 1) , PLOSS ( 100 , 1 C 1 ) , CPHI ( 100 , 1 0 1 ) ,SPHI (100,10 1) 
COMMON/VARCOM/A (4 , 1 00 , 1 0 1) , UOM ( 1 00 , 1 ^ 1 ) , K { 10 0 , 1 0 1 ) , RHO ( 1 0n , 1 0 1 ) , 

1 HSUBS (100,101), HSUBT (100, 101) , WS OB Z ( 1 00 , 1 0 1) ,HSOBR (10P, 101) , 

2 W5UBM(10n,101) , WTH (100,1^1), VTH (100,101) ,H(1C0,1O1) , 

3 ALPHA (100,101) ,8ETA (ICO , 10 1) , WHCR { 1 00 , 10 1 ) , CURV ( 10 0 , 1 0 1 ) , 

4 WLSURF ( 100, 10 1) , WTSUP F ( 1 00 , 1 0 1 ) , CAMP ( 1 00 , 1 01 ) , S A MP ( 1 00 , 1 0 1 ) , 

5 FHOAV(1C0,101) ,DELRHO (100, 101) , FT (100, 101) ,DFDM(10C, 101) , 

6 XIOM(1CC,101) ,ZETOM (100, 101) , DLDO (100, 10 1) 

COHMON/ROTATN/ZHROT (50) ,RHROT(50) ,ZTROT(50) ,RTROT(50) , 

1 ZLEOMR (101) ,RLE0MR (101) ,ZTEOHR (101) ,RTEOMR(101) , 

2 ZBLROT (50, 50) ,RBLROT (50 , 50) , ZOMROT ( 1 00 , 1 0 1 ) ,ROMROT(100, 101) 
DIMENSION ZTE MR (2) ,RTEMR (2) ,SOMIN(101) ,SOMODT (101) 

REAL LAMDAF,LOSOUT 

11 = 1 

12 = MM 

RFAC2 = REDFAC**2 
C 
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C--Ri;iNITIALIZ£ LAMDAF AND RVTHTA FOR INCOMPRESSIBLE CASE 
C 

IF (GAH.NE.O.) GO TO 5 
IF (LAMVT.EQ.O. AND.LSFR.EQ.C) RETURN 
CALL LAMNIT 

IF (MBI.NE.O) CALL RVTNIT 
RETURN 
C 

C--REINITIALIZE LAMDAF, RVTHTA, TIPF, AND RHOIPF 
C 

5 IF (LAMVT.EQ.O. AND. LSFR.EQ.O) GO TO 10 
CALL LAMNIT 
CALL TIPNIT 
CALL RHINIT 

IF (MBI.NE.O) CALL RVTNIT 
GO TO 10 
C 

C--ENTRY POINT TO UPDATE PLOSS FOR TVELCY 
C 

ENTRY LOSSTV(II) 

IF (GAM.EQ.O.) RETURN 

11 = II 

12 = II 
RFAC2 = 1. 

C 

C--CALCULATE LOSOUT ON DOWNSTREAM INPUT BOUNDARY, IF NOT GIVEN AS INPUT 
10 IF (LTPL.EQ.1) GO TO 30 
IF (II. NE. 1) GO TO 30 
ILOS =0 
DO 20 JN=1 , NOUT 
TINP = TIPF (SFOUT (JN) ) 

TOP = TINP-OMEGA/CP* (LAMDAF (SFOUT (JS) ,ILE(1) ,1) -RVTHTA (SFOUT (JN) , 
1 ILE (1) , 1) )/RPAC2 
PRINP = RHOIPF (SFOUT (JN) ) *AR*TINP 

LOSOUT (JN) = 1 . -PROP (JN) /PRINP* (TINP/TOP) ** (GAM*EXPON) 

20 IF (LOSOUT(JN) .LT.-.C01) ILOS=1 
IF (ILOS.EQ.1) WRITE (NWRIT,1020) 

30 IF (ITER.GT.1) GO TO 35 

IF (LTPL.EQ.O) WRITE (NWRIT, 1000) (J N, LOSOUT (JN) , JN= 1 ; NOUT) 

WRITE (NWRIT, 1010) (J, ILE (J) , ITE (J) , J=1 , MHTP1) 

C 

C--DISTRI3UTE TOTAL PRESSURE LOSS AT POINTS OF ORTHOGONAL MESH 
C 

35 CALL SPLINT (SFOUT, LOSOUT, NOUT, 0.,1, TEMP, TEMPI, TEHP2) 

DO 40 J=1,MHTP1 
DO 40 1=11,12 

40 CALL SPLENT (UOM (I, J) ,1 , PLOSS (I, J) ,TEMP1,TEMP2) 

IF(MBI. EQ.O.OR.NLOSS.GT.O) GO TO 60 
C--WITH BLADES, AND LINEAR DISTRIBUTION OF LOSS WITHIN BLADES 
DO 50 J=1,MHTP1 
SLENTH = STEOM (J) -SLEOM (J) 

DO 50 1=11,12 

PC = (SOM (I, J) -SLEOM (J) ) /SLENTH 
50 PLOSS(I,J) = AMINI ( 1 . , AMAX1 (0. ,PC) ) *PLOSS (I, J) 

RETURN 

C--NO BLADES, OR INPUT DISTRIBUTION OF LOSS, CALCULATE SOMOUT 
60 IF (ITER.GT. 1) GO TO 85 
CAN = COS(ANGROT) 

SAN = SIN(ANGROT) 

ZTEMR(I) = ZHOUT*CAN+RHOUT*SAN 
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ETE«R(1) = RHOOT*CAN-ZHOUT*SAN 
ZTEMR (2) = ZTOUT*CAN*RTOUT’*SAN 

RTEMR (2) = RTOOT*CAN-ZTOOT*SAN 

DO 80 J=1,BHTP1 

CALL INRSCT (ZOBROT (1 ,J) ,ROBROT(1,J) , BB , ZTEBR , RTEB R , 2 , ZI R , R IR) 

DO 70 1=2, BB 

IF (ZIR. LE. ZOBROT (I, J) ) GO TO 80 
7C CONTINUE 
I = BB+1 

80 SOBOUT(J) = SOB (1-1 ,J) +SQRT ( (ZIR-ZOBROT (I-1,J) ) ♦*2* 

1 (RIR-ROBROT (1-1 , J) ) **2) 

85 IF(BBI.EQ.C) GO TO 100 

C--WITH BLADES, AND INPUT DISTRIBUTION OF LOSS WITHIN BLADES, AND LINEAR 
C--DISTRIBUTION OF LOSS FROB TRAILING EDGE TO DOWNSTREAB INPUT STATION 
CALL SPLINT (PERCRD, PERLOS, NLOSS , 0 . , 1 , PERLS, TEBP 1 , TEBP2) 

DELPL = 1 . -PERLOS (NLOSS) 

DO 90 J=1,BHTP1 

SLENTH = STEOB (J) -SLEOB (J) 

DELPCO = DELPL/(SOBOUT(J)-STEOB (J) ) 

PERLS = 0. 

DO 90 1=11,12 
IF (I.LT.ILE(J) ) GO TO 90 

IF (I. LE. ITE(J) ) PC= (SOB (T,J) -SLEOB (J) ) /SLENTH 
IF (I. LE. ITE ( J) ) CALL SPLENT (PC , 1 , PERLS, TEBP1 ,TEBP2 ) 

IF (I .GT. ITE (J) ) PERLS=PERLOS (NLOSS) ♦ (SOB (I, J) -STEOB ( J) ) *DELPCO 
IF (PERLS. GT. 1 . 0) PERLS=1.C 
90 PLOSS(I,J) = PERLS*PLOSS (I, J) 

RETURN 

C--NO BLADES, CALCULATE SOBIN 
100 IF (ITER. GT. 1) GO TO 135 

ZTEBR(I) = ZHIN*CAN+FHIN*SAN 
RTEBR(I) = RHIN*CAN-ZHIN*SAN 
ZTEBR(2) = ZTIN*CAN+RTIN»SAN 
RTEBR(2) = RTIN*CAN-ZTIN*SAN 
DO 130 J=1,BHTP1 

CALL INRSCT (ZOBROT(1 ,J) ,ROBROT (1 ,J) , HB,ZTEMR, RTEBR, 2,ZIR,R IR) 

DO 110 1=1, BB 

IF (ZIR. LE. ZOBROT (I, J) ) GO TO 120 
110 CONTINUE 

120 IF (I.EQ.1) SOMIN(J)=0. 

130 IF (I.NE.1) SOBIN(J) =SOB(I-1,J) ♦SQRT((ZIR-ZOBROT(I-1,J) ) **2 + 

1 (RIR-ROBROT(I-1,J) ) ** 2 ) 

C--NO BLADES, AND LINEAR OR INPUT DISTRIBUTION OF LOSS FROB 
C--DPSTREAB TO DOWNSTREAB INPUT STATIONS 

135 IF (NLOSS. GT.O) CALL SPLINT (PERCRD, PERLOS, NLOSS,0 ., 1, PERLS , 
1TEBP1,TEBP2) 

DO 140 J=1,BHTP1 

SLENTH = SOBOUT (J) -SOBIN (J) 

DO 140 1=11,12 

PC = (SOB (I, J) -SOBIN (J) ) /SLENTH 
PERLS = PC 

IF (NLOSS. GT.O) CALL SPLENT (PC, 1 , PERLS, TEBP1 ,TEBP2) 

IF (PC.LE.O.) PERLS=0. 

IF (PC.GE.1.) PERLS=1. 

140 PLOSS(l,J) = PERLS*PLOSS (I, J) 

RETURN 

1000 FORBAT (//5X, 3 1HINITIAL CALCULATED LOSOUT ARRAY/10X,2HJN,6X,6HLOSO 
1UT/(9X,I2,3X,F10.6) ) 

1010 FORBAT (//5X,29HCALCULATED ILE AND ITE ARRAYS/10X,1HJ,5X,3HILE,3X, 


140 


oonn nono 


13HITE/(9X,I2,4X,I3,3X,I3)) 

1020 FORMAT ( 1 H 1 , 5X, 82HIN POT PROP VALUES ARE LARGER THAN IDEAL TOTAL PR 
1ESSORE, RESULTING IN NEGATIVE LOSS) 

END 

■J 


sobroutine newrho 

--NEVRHO CALCULATES VELOCITY COMPONENTS, VELOCITY MAGNITUDE, 

--AND NEW DENSITY AT EACH MESH POINT 

COMMON NREAD, NHRIT, ITER, lEND, NHRT1 , NWRT2 , N HRT3 , N HRT4 , N WETS , S8RT6 
COMMON/INPDTT/GAM, AR,HSPl,OMEGA, REDFAC, VELTOL, FNEW, DN EW , HBI, MBO , 

1 hm,mht,nbl,nhdb,ntip,nin,nout,mblpl,nppp,nostat,nsl,nloss, 

2 LSPR,LTPL,LAMVT,LB0T,LBLAD,LETEAM, ANGROT, IMESH, ISLINE, 

3 ISTATL,IPLOT, ISUPER , ITSON, IDEBDG , ZOMIN, ZOMBI, ZOMBO , ZOMOUT , 

4 ROBIN, ROMBI,EOMBO,HOMOUT,ZHIN,ZTIN,ZHODT,ZTOaT,RHIN,RTIN,RHODT, 

5 RTOOT,TITLEI (20) ,ZHOB(50) ,RHOB(SO) ,ZTIP(50) ,RTIP{50) ,SPIN(50) , 

6 RADIN(SO) ,TIP(50) ,PRIP(5C) ,LAMIN(50) ,VTHIN(50) ,SFOOT(50) , 

7 RADOOT(50) ,PROP(50) ,LOSOOT(SO) ,LAHO0T(50) ,VTHOUT (50) , 

8 BETALE(SO) ,BBTATB(50) ,ZHST (50 ) , ZTST (50) , RHST (50) ,RTST(50) , 

9 FLFR (50) ,PERCRD(5C) ,PERLOS(50) ,ZBL(50,50) ,RBL(50,50) , 

1 THBL(50,50) ,TNBL(50,5C) ,TTBL(50,50) ,THlBL (50,50) , TH2BL ( 50 , 50) 

COMMON/CALCCN/MMMI.MHTPI, CP, EXPON,TGROG, PITCH, BLEH,RLET,RTBH,BTET, 

1 ZLE(5C) ,RLE (50) ,ZTE (50) , RTE{5C) ,ZLEOM (10 1) ,RLEOM (101) , 

2 SLBOH (101) ,THLEOM (101) ,ZTEOM (101) ,RTEOM (101) ,STEOM (101) , 

3 THTEOM(IOI) ,ILE (101) ,ITE (101) , ZOM ( 100 , 10 1 ) ,ROM (100 , 101) , 

4 SOM (100,101) ,TOM( 100, 101) ,BTH (100,101) , DT HDS ( 100 , 10 1) , 

5 DTHDTdOO, 101) , PLOSS ( 100 , 101) ,CPHI ( ICO , 1 0 1 ) ,SPHI (100,101) 
COMMON/VABCOM/A (4,100,101) , UOM ( 1 00 , 10 1 ) , K ( 100 , 10 1 ) , RHO ( ICO , 1 0 1) , 

1 HSOBS (100,101) ,HStIBT (100,101) ,HS0BZ(100, 101) ,WSDBR (100, 1Q1) , 

2 WSUBM(100,101) ,WTH(100,101),VTH(100,101) ,W(1C0,101) , 

3 ALPHA (100, 101 ), BETA (100, 10 1) ,HWCR( 100, 101) ,C0RV ( 100, 101 ) , 

4 WLSUSP(100, 101) ,HTSURF( 100,101) , CAMP (100, 101) , S AMP ( 1 00 , 10 1 ) , 

5 RHOAV (100,101) ,DELRHO(100,101) , FT ( 100 , 10 1) , DFDM ( 100 , 101 ) , 

6 XIOM (100,101) ,ZETOM (100, 101) ,DLDU (100,101) 

DIMENSION DUDS (100) ,TVEHT(101) ,0 VERT (1 0 1) , DTJDT (1 01 ) ,TPP (101) , 

1 PEEL (101) ,DPDT (101) ,DTDT(1C1) ,AAA(101) 

REAL MSPL,LANOAF, LAMBDA, LAHBDO 
BBLER - 0 , 

RELERA » 0. 

XNEH = 1.0 
ZNEW » 1.0 

— CALCULATE HSUBT PROM THE PARTIAL OF UOM WITH RESPECT TO S USING THE 
--AVERAGE BLADE-TO-BLADE DENSITY FOR CONTINUITY 

DO 10 J=1,HHTP1 

CALL SPLINE (SOH(l,J) ,UOM(1,J) ,HH, DUDS, AAA) 

DO 10 1=1, MB 

HSUBT{I,J) = (-DUDS(I)*MSFL/(ROH(I,J)*BTH(I,J)) - 
1DFDM (I, J) *DELBHO (I ,J) /1 2 .*005 (BET A (I, J) ) *SAMP (I, J) ) /RHO AV ( I, J) 

10 CONTINUE 
C 

C — CALCULATE DERIVATIVES IN THE T DIRECTION OF THE SAME VARIABLES, AND 
C— CALCULATE NEW VELOCITIES AND NEW DENSITY 
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IHEL = 1 

JREL = 1 

ICOUNT =0 

DO 40 1=1, HM 

DO 20 J=1,f1HTP1 

TVERT(J) = TOM(I,J) 

20 OVERT (J) = UON(I,J) 

CALL SPLINE (TVERT,0¥ERT, MHTP1 ,D0DT, AAA) 

DO 30 J=1,MHTP1 

WSDBS(I,J) = (DODT (J) *NSFL/ (ROM (I, J) *BTH (I, J) ) - 
1DFDM (I,J) *DELRHO {I,J) /12 ,*COS (BETA (I,J) ) *CAHP (I,J) ) /PHOAV (T,J) 
HTH(I,J) = ROM (WSUBS (I , J) *DTHDS (I , J) ♦ WSOBT (I , J) *DTHDT(I,J) 

OMR = OHEGA*ROM (I, J) 

LAMBDA = LAMDAF (UOM (I,J) ,1, J) 

LAMBDO = RVTHTA (OOM (T, J) ,1,0) 

IF (I.LT.ILE(J) ) WTH (I, J)=LAMBDA/ROM{I,J) -OMR 
IF (I.GT.ITE(J) ) WTIl {I,J)=LAMBDO/ROM (I, J) -OMR 
VTH (I,J) = WTH (I, J) +OMR 

HSQ = WTH (I,J) **2*WSUBS (I, J) **2*WSOBT (I, J) **2 
WTEMP = SQET (WSQ) 

ERR = 0. 

IF (H (I, J) . HE. C . ) ERR= ABS ( ( WTEMP-W (I, J) ) /W (I , J) ) 

RELER = AMAX1 (RELER,ERR) 

IF (RELER. EQ. ERR) IREL = I 

IF (RELER. EQ. ERR) JREL = J 

IF (ERR.GE.VELTOL) ICOUNT=ICOONT*1 

RELERA = RELERA+ERR 

W(I,J) = WTEMP 

IF (GAM.EQ.O.) GO TO 30 

TIPT = TIPF (OOM (I, J) ) 

RHOIP = RHOIPF(OOM(I,J) )*(1.-PLOSS(I,J)) 

TPP(J) = TIPT- (2.*OMEGA*LAHBDA-OMR**2)/CP/2. 

IF (TPP (J) . LT.O. ) GO TO 60 

PREL(J) = RHOIP*AR*TIPT* (TPP (J) /TIPT) ** (GAB*EXPON) 

TTIP = (TPP (J) -WSQ/CP/2. )/TIPT 
IF (TTIP. LT.O.) GO TO 50 
RHO(I,J) = RHOIP*TTIP**EXPON 
30 CONTINDE 

IF (GAM.EQ.O.) GO TO 40 

CALL SLOPES (TVERT,TPP, MHTP1 , DTDT) 

CALL SLOPES (T VERT, PR EL, MHTP1 ,DPDT) 

DO 35 J=1,MHTP1 

XIOMT = (AR/PREL(J)*DPDT(J)/CP-DTDT(J)/TPP(J))/2. 

ZETOMT = OMEGA**2*ROM (I, J) *CPHI (I, J) -AR/PPEL (J) +TPP (J) *DPDT (J) 
XI0H(I,J) = XNEW*XIOMT+ (1.-XNEH) *XIOH(I,J) 

35 ZBTOM(I,J) = ZNEW*ZETOMT+ (1 .-7-NEW) *ZETOM (I, J) 

40 CONTINUE 

RELERA = RELERA/FLOAT (MH*MHTP1) 

IF (ITER.GT.1) WRITE (NWRIT, 1''20) RELER, IREL, JREL, RELERA, ICOUNT 
--ADJUST PRINTING CONTROL VARIABLES 


IF (RELER. GE.VELTOL) RETURN 
IF (RELER. EQ.O.) RETURN 
TEND = IEND+1 
IF (IMESH.GT.1) IMESH=1 
IF (ISLINE. GT. 1) ISLINE=1 
IF (ISTATL.GT. 1) ISTATL=1 
IF (IPLOT.GT.1) IPLOT=1 
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IF (ITS0S.GT.1) ITS0N=1 
IF (IDEBUG. GT. 1) IDEBDG=1 
RETURN 

5C WRITE(NWRIT,1000) 

STOP 

6? WRITE(NWRIT,1010) 

STOP 


1000 

1010 

1020 


™ excessive ST»E.» F 

nra"oRG^r*^’" »» tabgektiai velocity is 

FORMAT(/ 5X,3'?HMAXrMn»l RELATIVE CHANGE IN VELOCITY =, G 1 1 . 4 
H *T I -,I3 ,Rh, J =, I3/5X,37HAVER age RELATIVE CHANGE IN VELOCITY 
^ ^ ^ ^ U NUMBER OF UNCONVERGED MESH POINTS =,T5) 


C 


SUBROUTINE OUTPUT 


C--OUTPUT CALCULATES 
C--AT THE ORTHOGONAL 
C--AND ALONG STATION 
C 


AND PRINTS THE MAJOR OUTPUT DATA 
MESH POINTS, ALONG THE STREAMLINES, 
LINES FROM HUB TO SHROUD 


COMMON NREAD,NWRIT,ITER,IEND,NWRT1, NHRT2,NWPT3,NHR'^4 NHRTS NWR'T’f, 

MM.MHTMRT MW no MTirn it __ * ^ L J. f . . , 


!*qpd^‘ nblpl, nppp, nostatJnsl, nloss, 

T ^^^'^^'^^‘^'^'^^^^•^'^^'EEAN,ANGR0T,IMESH,ISLINE, 

RONIN,ROMBI, ROMEO, R0M0UT,ZHIN,ZT IN, ZH0UT,ZT0UT.RHIN RTIN RHOIIT 
RlnT^xL^^"^'<20),ZHUB(S0),RHUB(5-) ZTIP(EC),Sp"s0)'!” 

,PRIP(50) ,LAMIN (50, ,VTi!inU0) ‘ ' 

22! xLOSOIIT(50) , L AMOUT (50 ) , VTHOUT (50 ) , 

BETA!.. (50) ,BETATE(50) ,ZHST(50),ZTST(50), RHST ( 50 , RTST(5'^i 

TR3L(50,50) ,TNBL(5f^,50, ,TTBL(5D,S0, , TH1 BL (50 , 50 \ TH7BLf50 50\ 

0?^^i22l;”!ir:> :!!!.('!:> '21.EOM (101 ), rlrom(i^ 


SLEOM (1 0 1 ) , THLEOM (10 1) , ZTKOM ( 10 1 ) , FTE0?1 (101) . STEOM MO 1) 

THTEOH(1C1),ILE(1C1),TTE(10T),ZOM 100,101), romm?3 im ' 
5OM(1CC,101,,TOH(1Ca,101),BTH(100,1O1)',DTHDniCO 10 , ' 

DTHDT(100,101),PLOSS(100,1O1,;cPHi(100 1oV)%PHI, 30 13 1 , 

2o' 2 '^!^”®Tiv!‘^2']?^L'^^“f?<!?^■''51)»W-‘5OBR(10n,101)l 


HSUBM (100, 10 1) , MTH ( ICC, 1 01, , VTH ( i03,'l011 , H (l6o, 101 
ALPHA (100,1'^1) ,BETA (100,101) , WWCR (10U, 10 1) , CURV ( 10O 10 1 , 

HLSURF(100,101),HT3URF(10C,10 1),CAMP(10C,l5l), SAMP (ICO 10 1, 

»DELRHO(100,101) ,FT(100,101) ,DFDM (10'i,1oi') , ' 

XIOM (1 Ou , 1 0 1 , , ZETOM (100 , 1C 1) , DLDU (100,101, 

1^°”!zSWl2?”{m^UR;{ '”3(50, ,ZSL(100,53) , RSL ( 100 , 50) , MSL ( 1 00 , 50 ) 

1 WZSL{1^C,50) rWRSL(100^50) ffWWSL(100/50),WTHSr(100.50^ 

2 *^PSL (100, 50) ,BETSL (100, 5C) , HSL (100,50) , BHCHSL (1O0 50, 

3 CURVSL(1CO,50),WLSSL(100,50),HTSSL(;00 50) ‘ 

COHMON/ROTATN/ZHROT(50) ,RHROT(50) ,ZTROT(50) ,RTHOTC50) 

1 ( 1P1 ) » PLEOMP ( 10 1) , ZTEOMR ( 1 0 1) , RTEOMR (10 1 ) ' 

2 2BLR0T (50,50) ,RBLROT (50 , 50) ,ZOMHOT(100, 1C1) ,ROHROT (100 101, 
DIMENSION ZST(50,,RST(5r),,ST(50,,WZST(50),HRST(^ 
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1 WTHST(50) ,ALPST(50) ,BETST(50) ,WST(5')) ,WMCRST(50) ,CURVST , 

2 WLSSTj50) ,MTSST(50) ,PLOST{50) ,VTH5T(50) ,VST(50) ,BE»BST(5'^) , 

3 PST(50) ,TST(50) ,PHOST(50) ,PPST(50) ,TPST(5C) ,PPPST(50) ,TPPST(5C) 
DIMENSION DALDS (10'!') ,TVERT(1C1) ,ALVERT(101) ,BALVER(101) , 

1 ZTEM (101) ,ETEn(101) ,0TEf1 (1C1) ,ZSLTEB(5C) ,PSLTEM(50) , 

2 AAA(ICI) ,BBB(101) ,WZFSEX(101) ,WRFSEX{1C1) ,BTFSEX(101) , 

3 DALDT (100, 101) ,CH0MES (2,100) , ALT EM ( 1 00 ) , BETEN (ICO) ,CHOK (2) 

DATA CHOMES/200** V/CHOK/' CH' , 'OKED'/, BLNK/' V,NCHOK/^"/ 
REAL LAMDAF,LAMBDA,MSL,MST, MTFM 

--CALCDLATE VELOCITY COMPONENTS AND FLOW ANGLES ON ORTHOGONAL MESH 

DEGRAD = 180. /3. 1415927 
DO 10 J=1,MHTP1 
DO 10 1=1, MM 

HSDBM(I,J) = SORT (WSUBS (I, J) **2 + HS0BT (I, J) **2) 

SAMP(I,J) = WSUBT (I, J) /WSOBH (I, J) 

CAMP(I,J) = WSUBS(T,J)/WSaBM(I, J) 

HSUBZ(I,J) = WSUBS (I, J) *CPHI (I, J) -WSUBT (I, J) *SPHI (I, J) 

WSUBR(I,J) = WSUBT{I,J)*CPHI(I,J)+WSOBS(I,.I)*SPHI(I,J) 

ALPHA(I,J) = ATAN2 (WSUBR (I, J) ,WS0BZ (I, J) ) 

1C BETA(I,J) = ATAN2(WTH(I,J) ,WSUBM (I, J)) 

GO TO 30 

ENTRY TOUTPT 

--CALCULATE VELOCITY COMPONENTS ON MESH, AFTER TRANSONIC SOLUTION 

DO 20 J=1,MHTP1 
DO 20 1=1, MM 

WSUBM(I,J) = W (I,J) *COS (BETA (I, J) ) 

WTH(I,J) = W (I, J) +SIN (BETA (T,J) ) 

WS0BZ(I,J) = WSDBM (I, J) *COS (ALPHA (I,J) ) 

WSOBR(I,J) = WSUBM (I, J) *SIN (ALPHA (T, J) ) 

20 VTH(I,J) = WTH (I, J) +OMEGA*ROM (I, J) 

— COMPOTE BLADE SURFACE VELOCITIES 

30 CALL BLDVEL 

— STORE 'CHOKED* MESSAGE FOR APPROPRIATE VERTICAL ORTHOGONAL 
--HESH LINES 

NCHOK = C 
DO 25 1=1, MM 

IF (OOM (I, MHTP1) .GT. 0.9999) GO TO 25 
NCHOK = NCHOK +1 
CHOMES(1,I) = CHOK(1) 

CHOHES(2,I) = CHOK(2) 

25 CONTINUE 

--CALCULATE STREAMLINE CURVATURE AND CRITICAL VELOCITY RATIO ON MESH 

DO 50 1=1, MM 
DO 40 J=1,MHTP1 
TVERT(J) = TOM(I,J) 

40 ALVERT(J) = ALPHA (I, J) 

CALL SLOPES (TVERT,ALVERT,MHTP1,DALVER) 

DO 50 J=1,MHTP1 
50 DALDT (I, J) = DALVER(J) 
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DO 60 J=1,MHTP1 

CALL SLOPES (SOM (1,J) ,ALPHA (1,J) ,MB,DALDS) 

DO 60 1=1, MM 

CURV(T,J) = DALDS (I) *CAMP(I, J) «-DALDT (1,0) *SA MP (I, J) 

IF (GAH.EQ.C.) GO TO 60 

TPP = TTPF (UOM (I,J) ) - (2. *0«EGA + LAMDAF (fJOM (I, J) ,1, J) - (OMEGA* 
1HOM (I,J) ) +*2) /2./CP 
IF (TPP.LE.C.) TPP=1. 

HWCP(I,J) = H (I, J) /SORT (TGROG*TPP) 

60 eONTINOE 
C 

C--CHECK PRINT AND PLOT INDICATORS TO SEE IF OUTPUT C ALCULA'^'TONS 
C--SHOULD BE MADE 


IF (IHESH.LE.O) GO TO 32 

IF ( (ITER/IMESH) *IMESH. EQ. ITER. OR. ITER. EQ. 1) GO '’’0 3fl 

32 IF (ISLINE. LE. 0) GO TO 33 
IF ( (ITER/ISLINH) *ISLINE.EQ. ITER. OR. ITER. EQ. 1) G0T03P 

33 IF (ISTATL.LE.O) GO TO 34 
IF ( (ITER/ISTATL) *ISTATL.EQ. ITER. OR. ITER. EQ. 1) GO TO Tfl 

34 IP (IPLOT.LE.O) GO TO 3S 
IF ( (ITER/TPLOT) MIPLOT. EQ. ITER. OR. ITER. EQ.1) GO TO 38 

35 IF (ITSON.LE.O) RETURN 
IF ( (ITER/ITSON) *ITSON. NE. ITER) RETURN 

38 IF (NBI.EQ.C) GO TO 80 

— CHECK IF UPPER OR LOWER SURFACE IS SUCTION SURFACE 
REVERS = 0.0 

IF ( (LAMDAF (.5,IIE (1) ,1) -RVTHTA (.5, ILE(1) ,1) ) .GT.''. ) GOTO 80 
REVERS =1.0 
DO 70 J=1,HHTP1 
DO 70 1=1, MM 
HDUM .= HLSURF (I, J) 

HLSORF(I,J) = WTSURF(I,J) 

70 HTSORF(I,J) = WDUM 

--PRINT OUTPUT ROW BY ROW FROM HUB TO TIP ON ORTHOGONAL MESH 

80 IF (IHESH.LE.O) GO TO 1G0 

IF ( (ITER/IMESH) *IMESH. NE.I'TEP. AND. ITER. NE. 1) GO TO U'O 
WRITE (NHRT1 , 1000) 

IF (REDFAC.lt. 1.0) WRITE (NHRTI, 1 150) ITER 
IF (REDFAC.EQ. 1. 0. AND. lEND.LE.C) WRITE (NWRT1 , 1 16'') ITER 
IF (REDFAC.EQ.1.0.AND.IEND.GE.1.AND.ISUPER.LE.1) WRITE(NWRT1,1170) 
IF (REDFAC.EQ.1.0.AND.TEND.GE.1.AND.ISUPER.EQ.2) WRITE(NWR'’’1. 11801 
DO 90 J=1,MHTP1 V - f ; 

WRITE(NWRT1,1010) J 
WRITE (NVET1, 1020) 

DO 90 1=1, MM 

PHI = ATAN2 (SPHI (I, J) ,CPHI (I, J) ) *DEGRAD 
ALPHIJ = ALPHA (I,J) *DEGRAD 
BETAIJ = BETA (I, J) *DEGRAD 

90 WRITE(NWRT1 ,1030) I, J, ZOM (I, J) , ROM (I, J) , OOH (I, J) , WSUBM (I, J) , 
1WTH(I,J) ,W (I,J) ,WWCR (I,J),ALPHIJ,BETAIJ,PHI,CHOMES(1,I) , 
2CHOMBS(2,I) 

C — calculation OF OUTPUT DATA ON STREAMLINES 
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1CC IF (ISLINE .LE .0) GO TO 110 

IF {(ITEP/1SLINE)*ISLINE.EQ. ITER. OR. ITER. EQ.1) GO TO 130 
110 IF (IPLOT.LE.O) GO TO 120 

IF ( (ITER/IPLOT) *IPLOT. EQ. ITER. OR. ITER. EQ. 1) GOTO 130 
12C IF (ITSON.LE.O) GO TO 22C 

IF ( (ITER/ITSON) *ITSON. NE. ITER) GO TO 220 
C 

C--CALC(ILATE STREAMLINE ZS1,RSL COORDINATES FOR PRINT OUT 
13C DO 150 1=1, MM 

DO 140 J=1,MHTP1 
ZTEM(J) = ZOMROT(I,J) 

RTEM (J) = ROMROT(I,J) 

14C UTEM(J) = QOM{I,J) 

CALL SPLINT (UTEM ,RT5M, MHTPl , FLFR , NS L, RSLTEM , AAA , BBB) 

CALL SPLINT (FT EH , ZT EM , M HTP 1 , RSLTEM , N SL , ZSLT FM , A A A , BBB) 

DO 15G JS=1,NSL 
ZSL(I,JS) = ZSLTEM(JS) 

150 RSL(I,JS) = PSLTEM{JS) 

--CALCULATE STREAMLINE HSL COORDINATES FOP PRINT OUT AND PLOTTING 
DO 160 JS=1,NSL 
M5L(1,JS) = 0. 

DO 16C IS=2,MM 

160 MSL(IS,JS) = MSL (IS-1 , JS) +SQRT{ (ZSL (IS, JS) -ZSL (TS-1 ,JS) ) 

1 + (RSL (IS, JS) -RSL (IS-1 , JS) ) *^2) 

--INTERPOLATE TO OBTAIN OUTPUT DATA ON STREAMLINES 

II = 1 
JJ = 1 

DO 180 JS=1 ,N3L 
DO 180 IS=1,HM 

CALL LININT (ZOMROT , R OH ROT, WSUBZ , MM, HHTPl , 100 , 10 1 , ZSL ( IS , JS) , 

1RSL(IS,JS) , WZSL (IS, JS) ,11, JJ) 

CALL LININT (ZOMROT , ROMROT, MSUBR , HM, MHTP1 ,100,101,ZSL(IS,JS) , 
1RSL(IS,JS) ,MRSI(IS,JS) ,II,JJ) 

CALL LININT(ZOMPOT,ROMROT,WTH,HM,MHTPl,100,101,ZSL(IS,JS) , 
1RSL(IS,JS) ,WTHSL (IS,JS) ,II,JJ) 

CALL LININT (ZOMROT, ROMROT, HWCP, MM, MHTPI , ICO , 101 , ZSL (IS ,JS) , 
1RSL(IS,JS) , WHCRSL (IS,JS) ,II,JJ) 

CALL LININT (ZOMROT, ROMROT, CURV, MM, MHTP1 , ICO , 10 1 , ZSL (IS, JS) , 

1RSL(IS,JS) ,CURVSL (IS,JS) ,II,JJ) 

HMSL(IS,JS) = SQRT (HZSL (IS, JS) **2+WRSL(IS, JS) **2) 

ALPSL(IS,JS) = ATAN2 (WRSL(IS,JS) ,HZ3L(IS,JS) ) 

BETSL(IS,JS) = ATAN2 (WTHSL (IS ,JS) ,HHSL(IS, JS) ) 

180 HSL(IS,JS) = SQRT (WMSL (IS, JS) **2*HTHSL (IS,JS) **2) 

--CALCULATE ILS AND ITS ARRAYS OF STREAMLINE LOCATIONS INSIDE BLADE 
— LEADING AND TRAILING EDGES 
IF (MBI.EQ.O) GO TO 185 
CALL ILETE 

--INTERPOLATION FOR BLADE SURFACE VELOCITIES ON STREAMLINES 
185 DO 190 JS=1,NSL 
DO 190 IS=1,HH 
BLSSL(IS,JS) = 0. 

190 WTSSL(IS,JS) = 0. 

IF (MBI.EQ.O) GO TO 205 
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II = 1 
JJ = 1 

DO 200 JS=1 ,NSL 
ILSJ = ILS(JS) 

ITSJ = ITS(JS) 

DO 200 IS=ILSJ,ITSJ 

--PRINT OOTPUT ON STREAMLINES 


C 

c- 

c 


205 IF (ISLINE.LE 
IF ((ITER/ISL 
WRITE (NHRT2,1 
IF (REDFAC.lt 
IF (REDFAC.EQ 
IF (REDFAC.EQ 
IF (REDFAC.EQ 
CALL ROTATE (- 
DO 210 JS=1,N 
DO 207 IS=1,M 
ALTEH(IS) = A 
207 BETEH(IS) = B 
WRITE (NWRT2,1 
WRITE (NWRT2,1 
210 WRITE (NHRT2, 1 
1WTHSL(IS,JS) , 
2CURVSL (IS, JS) 
3IS=1 ,HM) 

CALL ROTATE (A 


.0) GO TO 220 

INE) * ISLINE. NE. ITER . AND. ITER . NE . 1) GO TO 220 
040) 

.1.0) WRITE (NWRT2, 1 150) ITER 
. 1.0. AND. lEND.LE.O) WR ITE (NWRT2 , 1 1 60) ITER 
.1.0.AND.IEND.GE.1.AND.ISOPER.LE.1) WRITE(NWRT2,1170) 
. 1 . 0. AND. I END. GE. 1 . AND . ISOPER . EQ. 2) WRITE (NWRT2, 1180i 
ANGROT,ZSL,RSL,HM,NSL, ICO, 50,ZSL, RSL) ' 

SL 
M 

LPSL(TS,JS) +DEGRAD 
ETSL (IS,JS) *OEGRAD 
050) JS,FLFR(JS) 

060) 

,RSL(IS,JS) ,MSL(IS,JS) ,WMSL(IS,JS) , 
WSL (IS, JS) , WWCRSL (IS, JS) , ALTER (IS) , BET EH (IS) , 

,WLSSL (IS,JS) ,WTSSL (IS,JS) , CHORES ( 1 ,IS) , CHORES (2, IS) , 


NGR0T,ZSL,RSL,MM,NSL, 100,50,ZSL,RSL) 

■CALCULATION OF OUTPUT DATA ON RUB-SHROUD STATION LINES 

220 IF (ISTATL . LE . 0 . OR. HOST at. EQ. 0) GO TO 410 

*^^^*'^^‘^®'^**'®*******^*I'^®*****E* "*) GO TO 410 

WRITE(NHRT3,1080) 

IF (RBDFAC.lt. 1.0) WRITE(NWRT3, 1150) ITER 

IF (REDFAC. EQ. 1 . 0. AN6. IEND. LE.O) WRITE (NWRT3, 1 160) ITER 

. EQ . 1 . 0 . A ND. I END . GE. 1 . AND . ISOPER. LE. 1) WRITE(NWRT3 11701 
IF (REDFAC.EQ. 1.0. AND. TEND. GE.1.AND.ISUPER.EQ.2) ^BITE (SmTS ; 1 Uo) 

"CALCULATE ZST AND RST ARRAYS 

^^^j;!i2HROT,RHROT,NHOB,ZHST,NOSTAT,RHST,AAA,BBB) 

DO 40^“=1,SSI?It 
HARK = I ' 

RTEH(1) = RHST(IL) 

RTEH(20) = RTST(IL) 

DELR = (RTEM (20) -RTEH (1) )/19.0 
DO 230 J=2,19 

230 RTEH(J) = RTEH (J-1) 4-dELR 
ZST(1) = ZHST(IL) 

ZST(NSL) = ZTST(IL) 

ZTEH(1) = ZHST(IL) 

ZTEH (20) = ZTST(IL) 

DELZ = (ZTEM(20) -ZTEM(1) )/19.0 
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C — CHECK FOB LEADING OH TRAILING EDGE STATION 
IF (MBI.EQ.O) GO TO 240 

DELCH = ABS (ZTEOBB (1) -ZLEONR (1) +ZTEOHR (HRTP1) -ZLEOMR ( MHTPl )) *0.005 
IF(ABS(ZST (1) -ZLEOHR (1) ) .LT. DELCH. AND. ABS (ZST (NSL) - 
1ZLEOHR (MHTPl) ) .LT. DELCH) MARK=2 
IF (ABS (ZST (1) -ZTEOMR (1) ) .LT . DELCH . AND. ABS (ZST (NSL) - 
IZTEOMH(MHTPl) ) .LT. DELCH) MARK=3 
IF (ZST(1) .GT. (ZLEOHR(I) ♦DELCH) .AND.ZST(I) .LT. (ZTEOMR(I)- 
1DELCH)) MARK=4 
IF (HAEK.EQ.2) GO TO 260 
IF (MARK.EQ.3) GO TO 270 
C— REGULAR STATION 
240 DO 250 J=2,19 
250 ZTEH (J) = ZTEH (J-1) ♦DELZ 
GO TO 280 

C--LEADING EDGE STATION 

260 CALL SPLINT(RLE,ZLE,NBLPL,RTEM,20,ZTEM,AAA,BBB) 

GO TO 280 

C — TRAILING EDGE STATION 

270 CALL SPLINT (RTE,ZTE,NBLPL, RTEM, 20, ZTEH, AAA, BBB) 

C 

C--INTERPOLATE FOB STREAM FUNCTION 
280 OTEM(1) * 0. 

DTEH(20) * 1. 

II = 1 
JJ = 1 

DO 290 J=2,19 

290 CALL LININT (ZOMROT,ROMROT,DOM, MM, MHTPl, 100, 101, ZTEM(J) ,RTEM(J) , 
1UTEH (J) , 11 , JJ) 

C 

C — CALCULATE STATION LINE RST COORDINATES FOR PRINT OUT 
CALL SPLINT(UTEM,RTEM,20,FLFP,NSL,RST,AAA,BBB) 

DELR = RST (NSL) -RST (1) 

DELZ = ZST (NSL) -ZST (1) 

NSLM1 = NSL-1 
C 

C — CALCULATE STATION LINE ZST COORDINATES FOR PRINT OUT 
GO TO (300,320,330,300) , HARK 
300 DO 310 JL=2,MSLH1 

310 ZST(JL) = ZST(1) + (RST(JL)-RST(1))/DELB*DELZ 
GO TO 340 

320 CALL SPLINT (RLE, ZLE,NBLPL, RST, NSL, ZST, AAA, BBB) 

GO TO 340 

330 CALL SPLINT(RTE,ZTE,NBLPL,RST,NSL,ZST,AAA,BBB) 

C 

C — CALCULATE STATION LINE HST COORDINATES FOR PRINT OUT 
340 DO 350 JL=1,NSL 
350 MST(JL) = 0. 

IF (ISLINE.LE.O) 60 TO 370 

IF ((ITER/ISLINE)*ISLINE. NB. ITER. AND. ITER. NE.1) GOTO 370 
II = 1 
JJ = 1 

DO 360 JL=1,NSL 

360 CALL LININT (ZSL,BSL,MSL, MM, NSL, 100, 50, ZST (JL) ,RST(JL) ,HST(JL) , 
1II,JJ) 

C 

C--IHTBHPOLATE TO OBTAIN OUTPUT DATA ON STATION LINES 
C 

370 II = 1 
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n n o 


JJ = 1 

C— to 3S6 

DO 375 J=1,f1HTP1 
I = ILE (J) -1 

WZFSEX f 1\ 

.. K“»i 

GO TO 378 

376 DO 377 J=1 ,MHTP1 
I = ITE(J) +1 

RTEoJS (j/^ ^EXFRAC* (BETA (I, J) -BETA (IM, J) ) 


377 

378 


380 

382 


HRFSEX (J) 

BTFSBX (J) 

RTEM(J) = 

JITE = 1 
DO 384 JL=1,NSL 
DO 380 J=JLTE,MHT 

IF (RST(JL) .LE. RTEM (J + 1) ) GOTO 382 
CONTINUE M lu Jbj 

JLTB = J 

WMST(JL) = SQRT{MZST(JL)**2 + WRST(JL) **2) > 

384 BETSTliJ"! " *'’'*^<®®’'ST(JL) ) 

BETST (JL) = BETST (JL) *DEGRAD 

GO TO 390 

OR ST8TIOB BITHIB BUDE 

1 E*i ‘'S;”"' "HTB 1 . 100 , 10 1 . ZET ,3L, 

388 BETST(JL) = *T»»2(»THST(JL) ,»BST(JL)).DKEAD 

—CALCULATE OTUEE OOTPOT DATA 0» STATIOB LINES 
390 DO 392 Jl-I.NSL 

~ *'^**'2 (WRST (JL) ,HZST (JL) ) *DEGRAD 
WlL^T(JL)* **2 + WTHST(JL) **2) 

WTSST(JL) =0.' 

IF (MARK.EQ.1) GO TO 392 

1Bsii3if:;L"^J??;”?!i?:3;“^'“="'^-"".""T^1.100.101.ZST,aL,, 
CALL ‘■I«l»T(ZOBROT,BOBBOT,»TS0BE,n«,BHTP1,100.101,ZST(JL), 


1RST(JL),WTSST(JL) 

392 CONTINUE 

CALL ROTATE (-ANGEOT, ZST,RST, NSL, 


1,50,1,ZST,RST) 


C — CALCULATE EXTRA OUTPUT DATA ON STATION LINES 
C 

DO 396 JL=1,NSL 

LAMBDA = LAMDAF (FLFR (JL) ,ILE (1) , 1) 

OMR = OHEGA+RST (JL) 

VTHST(JL) = HTHST (JL) +OMR 
VSQ = WMST (JL) ++2+VTHST (JL) **2 
VST(JL) = SQRT(VSQ) 

BEABST(JL) = ATAN2 (VTHST (JL) ,WMST (JL) ) *DEGRAD 
IF (GAM.EQ.O.) GO TO 396 
TIPT = TIPF (FLFR (JL) ) 

RHOIP = RHOIPF (FLFR (JL) ) *(1 . -PLOST (JL) ) 

TPPST(JL) = TIPT-(2.*OMEGA*LAMBDA-OMR**2)/2./CP 
HWCRST(JL) = WST (JL) /SQRT (TGBOG*TPPST (JL) ) 

BHOPP = RHOIP* (TPPST(JL) /TIPT) **EXPON 
PPPST(JL) = RHOPP*AR*TPPST (JL) 

TPST (JL) = TIPT+ (OMR*VTHST { JL) -OMEGA*LAHBDA) /CP 
RHOP = RHOIP* (TPST (JL) /TIPT) **EXPON 
PPST(JL) = BHOP*AR*TPST (JL) 

TST (JL) = TPST (JL) -VSQ/2./CP 

BHOST(JL) = RHOP* (TST (JL) /TPST (JL) ) **EXPON 
PST(JL) = RHOST (JL) * AR*TST (JL) 

396 CONTINUE 
C 

C--PRINT OUTPUT ALONG HUB-SHROUD STATION LINES 
C 

IF (NCHOK.GT.O) WRI TE (N WRT 3 , 1 085) NCHOK 
IF (MARK.EQ.1) WRITE (NHRT3, 1C90) IL 
IF (MARK.EQ.2) WRITE (NHRT3 , 1 100) IL 
IF (MARK.EQ.3) WRITE (N WRT3, 1 110) IL 
IF (MARK.EQ.4) WRITE (NWRT3 , 1 120) IL 
WHTTE(NWRT3,1130) 

WRITE (NWRT3 ,1 140) (RST (JL) , ZST (JL) , MST (JL) , FLFR (JL) ,WMST (JL) , 
1 WTHST (JL) , WST (JL) , WWCRST (JL) , ALP ST (JL) ,BETST (JL) ,CURVST (JL) , 
2WLSST(JL) ,WTSST(JL) ,JL=1,NSL) 

WRITE (NWRT3,1 142) 

WRITE(NWRT3,1144) (RST(JL) ,ZST(JL) ,PST ( JL) ,TST (JL) , RHOST (JL) , 
IVTHST(JL) , VST ( JL) , PPST ( JL) ,TPST (JL) , BEABST ( JL) , PPPST ( JL) , 
2TPPST(JL) ,JL=1,NSL) 

400 CONTINUE 
C 

C — REVERSE UPPER AND LOWER SURFACE VELOCITIES, IF NECESSARY 
C 

410 IF (REVERS.EQ.O.) GO TO 430 
DO 420 J=1,MHTP1 
DO 420 1=1, MM 
WDUM = WLSURF(I,J) 

WLSURF(I,J) = WTSURF(I,J) 

42C HTSURF(I,J) = WDUM 
REVER3 = 0.0 
C 

C — REMOVE 'CHOKED' MESSAGE, IF NECESSARY 
C 

430 IF (NCHOK. EQ.O) RETURN 
DO 440 1=1, MM 
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non 


CH0HES(1,I) = BLNK 
440 CH0MES(2,I) = BLNK 
RETURN 

--FORMAT STATEMENTS 

100C FORMAT ( 1 H 1 ////2 8X , 79 ( 1 H*) /2ftX, 79H* ** STRFAM FUNCTION, INTERIOR V 
1ELOCITIES, VELOCITY COMPONENTS, AND ANGLES ***/44X,4 1HAT ALL MESH 

2 POINTS OF THE ORTHOGONAL MESH/44X, 4 1 (1 H*) ) 

101C FORMAT {///42X,39H** HORIZONTAL ORTHOGONAL MESH LINE NO. , 

112, 3H ♦*//) 

1020 FORMAT ( 1 X , 1 0 H MESH- POI NT , 3 X , SHAXI AL, 8X , 6 HRADI AL, 6X, 6HSTREAM, 4X, 
16HHERID.,3X,9HREL.TANG., 4X , 4 HREL . , 3 X , 9HCPIT . VEL. ,3X,6HMERID.,3X, 
28HREL.FLOW, 3X,4HMESH/1 X,9HCOLM ROW , 4X , 6 HCOORD. , 7X, 6HCOORD . , 7X, 
35HFUNC. ,5X,4HVEL. ,6X,4HVEL. ,7X,4HVEL. , 5X , SHPATIO, 3 (5X , 5HANGLE) / 

4 2X,8H(I) (J) ,5X,3H(Z) ,10X,3H(R) ,10X,3H(O),6X,4H{HM),5X,SH(WTH) , 

57X, 3H (W) ,5X,7H (H/WCR) ,3X,7H (ALPHA) , 3X,6H (BETA) ,5X,5H(PHI)) 

1C3C FORMAT (1X,I3,2X,I3,2X,2(G12.5,1X) ,F8.4,3(1X,F9,2) ,1X,F9.3, 
13(3X,F7.2) ,2A4) 

1040 FORMAT (1H1////15X,99 (1H*) /15X,99h*1“* STREAM FUNCTION, INTERIOR V 

1ELOCITIES, VELOCITY COMPONENTS, ANGLES, AND SURFACE VELOCITIES ** 
2*/56X,17HAL0NG STREAMLINES/56X, 17 (1 H*) ) 

105C FORMAT(///36X,2CH** STREAMLINE NUMB ER , I 3, 23 H -- STREAM FUNCTION 
1=,F8.4,3H **//) 

106C FORMAT (4X , 5H AX I AL , 8X , 6 HRADI AL, 7 X , 6 HHERID. , 6 X, 6HMER ID . , 2X , 

19HREL. TANG. ,2 X,4HRSL. ,2 X,PHCRIT . VFL. , 2X,6HMERID. , 2X,BHREL. FLOW, 
22X,7HSTREAM. , 3X,9HSUCT. SUR, , 1 X, 9 HPRES . SDR . /4 X ,6 HCOORD . ,7X, 

3 6HCOORD. ,7X,6HCOORD. , 7 X , 4H V EL . , E X , 4 HVEL . , '^X , 4HV EL . , 4X , 5HR A TIO, 

4 2 (4X, 5HANGLE) , 5X ,5HCURV. ,6X ,4HVEL. , 6 X , 4 H VEL . /5X , 3 H (Z) , IPX, 3H (R) , 
51CX,3H(M) ,9X,4H(WM) ,4X,SH(WTH) ,5X,3H(Vf) ,4X, 7H (H/WCR) , 2X, 

6 7H (ALPHA) ,2X,6H(EETA),3X,9H (1./DIST) ,4X,4H(HS) ,6X,4H(HP)) 

1070 FORMAT ((3(1X,G12.5),3(1X,F8.2),1X,F7.3,2(2X,F7.2),2X,G11.4, 
1F8.2,2X,F8.2,2A4) ) 

1080 FORMAT ( 1 H 1////1 5X , 99 ( 1 H*) /I 5X, 99H* ** STREAM FUNCTION, INTERIOR V 
1ELOCITIES, VELOCITY COMPONENTS, ANGLES, AND SURFACE VELOCITIES 
2*/28X,72HALONG LINES FROM HUB TO SHROUD AT VARIOUS STATIONS THROUG 
3H THE BLADE ROH/28X, 72 (1 H*) ) 

1085 FORMAT ( //28 X , 1 9HBEW AR E . THERE ARE,I3,49H VERTICAL ORTHOGONAL M 
1ESH LINES WHICH ARE CHOKED, /28X,82HL0CATI0NS OF THESE LINES APE GI 
2VEN ABOVE AT THE BEGINNING OF THE TRANSONIC OUTPUT. /28X , 87 HOUTPUT 
30N ANY STATION LINES LOCATED NEAR THESE CHOKED ORTHOGONAL LINES MA 
4Y BE IN ERROR.) 

1Q9C FORMAT (///49X,26H** HUB-SHROUD STATION NO. ,I2,3H **//) 

1100 FORMAT (///49X, 26H** HUB-SHROUD STATION NO. ,12, 3H *’»,16X, 

118H** LEADING EDGE **//) 

1110 FORMAT (///49x,26H** HUB-SHROUD STATION NO. ,I2,3H **,15X, 

119H** TRAILING EDGE **//) 

1120 FORMAT (///49X,26H** HUB-SHROUD STATION NO. ,I2,3H **,16X, 

118H** WITHIN BLADE **//) 

1130 FORMAT (4 X , 6HR A D I A L , 7 X, 5HA XI AL, 8X , 6 HMER ID. , 4 X , 6HSTR EAM , 3X , 

16HMERID. ,2X,9HREL.TANG. , 2X , 4 R REL . , 2 X , 9 HCRIT . VEL. , 2X ,6 HM ERI D . , 2X , 
28HREL.FLOW, 2X, 7HSTREAM. , 3X , 9 HSUCT . S UR . , 1 X , 9HPEES . SUR. /4 X , 

36HCOORD. ,7X, 6 HCOORD. ,7X,6HC00RD. ,5X,5HFUNC. , 4X, 4HVEL. , 5X,4 HVFL. , 
45X,4HVEL. ,4X, 5 HR ATIO , 2 ( 4X, 5H ANGLE) , 5X,5RCURV. ,6X,4HVEL. ,6X,4HVEL. / 
55X,3H(R) ,10X,3H(Z) ,1CX,3H(M) , 8X , 3H ( U) , 5 X, 4 H (HM) , 4X, 5H (WTH) ,5X, 

6 3H(W) ,4X,7h (W/HCR) ,2X,7H (ALPHA) ,2X,6H(BETA) , 3X, 9H ( 1 ./DI ST) ,4X, 

74H (WS) ,6X,4H (HP) ) 

1140 FORMAT ( { 1 X , 3 (G 1 2 . 5 , 1 X) , F6 . 4 , 3 ( 1 X , F3 . 2) , 1 X, F7 . 3 , 2 ( 2X, F7 . 2) , 2 X , 
1G11.4,F8.2,2X,F8.2) ) 


151 



a n n n 


1142 FORMAT (//4 X , 6 HR ADI A L , 7 X ,5 H A XI AL ,8 X , 3 (6HSTAT IC, 3X) , 9HABS.TANG. , 2X, 
14HABS.,3X,2 (8HABS.TOT.,1X) ,8HABS.FLOH,2X,2(1 X , 8HREL.TOT. ) / 

24X.2 (6HCOORD. ,7X) , 1X,5HPRFS. ,4X,5HTEMP. ,4X,SHDENS. ,2(5X,4HV^L .) , 

34X.5HPRES.,4X,5HTEMP.,4X,'iHANGLE,6X,5HPFES. ,4X,5HTEMP./ 5X,3H(R) 

4,1CX,3H(Z) ,10X,3H(P) ,6X,3H(T) ,6X,5H(PHO) ,4X,5H (VTH) ,5X,3H(V) , X, 

54H (PP) ,5X, 4H (TP) ,4X,6H (BETA) ,6X,5H (PPP) ,4X, 5H (TPP) ) 

1144 FORMAT ( ( 1 X , 2 (Gl 2 . , 1 X) , F9 . 2 , 1 X , F7 . 2 , 1 X , F 10 . 7, 1 X, 2 ( F8 . 2 , 1 X) , F . . , 

11X,F7.2,1X,F7.2,3X,F9. 1,1X,F7.2) ) 

1150 FORMAT (/5 3X, 23 ( 1H*) /5 3X ,2 3H* REDUCED HA5SFLOH 
153X,18H* ITERATION NO. ,I2,3H V5 3X , 2 3 ( 1 H *) ) 

1160 FORMAT (/5 2 X , 2 5 ( 1 H*) /5 2 X ,2 5 H* FULL MASSFLOW 

152X,19H* ITERATION NO. ,I2,4H */52X , 25 ( 1 H*) ) 

1170 FORMAT (/5 2 X , 2 5 ( 1 H *) /5 2 X r 2 5 H * FULL MASSFLOW 

142x"lH*;i2X.19HTRANSONIC SOLUTION , 1 2X , 1 H*/4 2X , 4 5H* BY VELOCITY G 
2RADIENT APPROXIMATE METHOD ♦/ISX , 59 ( 1 H*) /3 5X , 59 H* ALL VELOCITIES 
3 SMALLER THAN CHOKING MASSFLOW SOLUTION V35X,59 (1H*) ) 

1180 FORMAT (/5 2 X , 2 5 ( 1 H*) 2 X ,2 5 H* FULL MASSFLOW * /42X , 4 5 ( H*) / 

142x”lH*,12X,19HTRANSONIC SOLUTION, 12X, 1HV42X,45H* BY VELOCITY G 
2PADIENT APPROXIMATE METHOD ♦/S 5X , 59 ( 1 H*) /3 5X, 59H* ALL VELOCITIES 
3 LARGER THAN CHOKING MASSFLOW SOLUTION */35X, 59 ( 1 H*) ) 

END 


♦/53X, 23 (1 H*) / 

♦ /52X, 25 (1H*) / 
*/42X,45 (1H*)/ 


SUBROUTINE ELDVEL 

-BLDVEL CALCULATES BLADE SURFACE VELOCITIES, ELADE-TO-BLADE 
-AVERAGE DENSITY, AND FT 

COMMON NREAD,NWRIT,ITER,IEND,NWRT1, NWRT2,NWRT3,NWRT4,NWRT5,NWRp 
COHMON/INPUTT/GAM, AR , MS FL, OMEGA, REDFAC, VELTOL, FN EW , DNEW » 

1 MM,MHT, NBL, NHUB, NTIP , NI N , NOUT , NBLPL, NPPP, NOST AT, NSL, NLOSS, 

2 lsfr,ltpl,lamvt,lrot,lblad,letean,angrot,imesh,isline, 

3 isTATL,IPLOT,ISDPER,ITSON,TDEBOG,ZOHIN, ZOMBI, ZOMBO,ZOMOU x , 

4 pohin,rombi,rombo,romoot,zhin,ztin,zhout,ztout,rhin,rtin,rhout, 

5 RTOUT, TITLEI (29) , ZHUB (50 ) , RHUB (50) ,ZTIP (50) ,RTIP(50) ,SFIN (. ^) , 

6 RADIN(50) ,TIP(50) ,PRIP (50) ,LAMIN (50) , VTHIN (50) ,SFOUT(59) , 

7 RADOUT (50) , PROP (5^) ,LOSOUT (50) ,LAHOUT (50) , VTHOUT (50) , 

8 BETALE(50) ,BETATE (50) ,ZHST(50) ,ZTST (50) , RHST (50) ,RTST(5 0) , 

9 FLFR(50) ,PERCRD(50) ,PERLOS(50) ,ZBL(50,50) » '’BL (50 ,50) , 

1 THBL (50 ,50) ,T NBL (50 ,5 0) ,TTBL (50 , 50) ,TH1 BL (50 , 50) ,TH2BL ( 50, 

COMHON/CALCON/MMM1,MHTPl , CP , EXPO N, TGROG , PITCH , RLEH, RLET , RTEH , PT ET , 

1 ZLE(50) ,RLE(50) ,ZTE(50) ,RTE(50) ,ZLEOH (101) ,RLEOM (101) , 

2 SLEOM (101) ,THLEOM (101) ,ZTEOM(101) ,RTEOH(101) »STEOM (lOp , 

3 THTEOM(101) ,ILE(101) ,ITE(101) ,ZOM(100,101) , ROM ( 1 00 , 1 „ 1 ) , 

4 SOM (100, 101 ) ,TOM (100,101) ,BTH < ’ ° ^ ° in n 

5 DTHDT ( 100 , 101), PLOS S( 100, 101), CPHI(100, 101), S PH 1(100, 101) 
COMMON/VARCOM/A(4,100,101) ' ^OH ( 1 00 , 1 0 1 ) , K (1 00 , 1 0 1 ) , RHO ( 1^ 

1 WSUBS (100 ,101) ,WS0BT (ICO ,101) , WS UBZ ( 1 00 , 1 0 1) ,WSUBR (100, 101) , 

2 WSUBH (100, 101) ,WTH(100,1C1) ,VTH(100,101) » * . 

3 ALPHA (100,101) , BETA (100,101) ,WWCR (100,101) » \ , 

4 WLSDRF (100,101) ,WTSURF(1 00,101) ,CAHP(100,101) , SAMP (100,1. ) , 

5 RHOAV (100, 101) ,DELRHO (1 00 , 1 0 1 ) , FT ( 100 , 10 1 ) ,DFDM (IOC , 101 ) , 

6 XIOM (100,101) ,ZETOM (100 ,101) ,DLDU (100, 10 1) 

DIMENSION TVERT(IOI) ,FVERT(101) ,DFVERT(101) ,DFDS(100) , 

1 fST(100, 101) ,DFDT (100,101) 

REAL LAMDAF 
10 FCHANG = 0. 
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FMAX = -1.E20 
FHIN = 1.E20 
C 

C CALCULATE DFDT 

C 

DO 30 1=1, MM 
DO 20 J=1,«HTP1 
TVERT(J) = TOM(I,J) 

FST(I,J) = VTH(I,J)*ROM(I,J) 

FVERT(J) = FST(I,J) 

20 CONTINUE 

CALL SLOPES (TVERT, FVERT, MHTP1 , OFFER T) 

DO 30 J=1,NHTP1 
DFDT(I,J) = DFVERT(J) 

30 CONTINUE 
C 

^“"“CALCULATE DFDS, THEN DFDM AND BLADE SURFACE VELOCITIES 


C 


DO 50 J=1,MHTP1 

CALL SLOPES (SOM (1,J) ,FST(1,J) , MM, DFDS) 

DO 50 1=1, MM 
DFDM (I,J) =0. 

IF (I.GE.ILE(J) .AND.I.LE.ITE(J)) DFDM (I, J) =- (DFDS (I) *CAMP f T J1 + 
1DFDT{I,J)*SAMP(I,J))*BTH(I,J)*C0S(BETA(I,J)) ’ CAMP(T,J). 

HLSORF{I,J) = H(I,J) ♦DFDM(I,J)/2. 

HTSURF(I,J) = W (I,J) -DFDM (I, J)/2. 


C CALCULATE BLADE-TO-BLADE 

C 


AVERAGE DENSITY 


IF (GAH.EQ.O.) GC TO 40 

THLMR = 2 . *OMEGA*LAHDAF (TTOM (I,J) , 1 , J) - (OMEGA*ROM (I, J) ) **2 
USQ = HLSURF (I, J) **2 \ , n ^ 

TIPIJ = TIPF (UOH (I, J) ) 

TTIP = 1 (HSQ+THLMR) /CP/TIPIJ/2. 

IF(TTIP.LT. 0.) TTIP = 0. 

RHOIJ = RHOIPF (DOM (I, J) ) *(1 .-PLOSS (I,J) ) 

RHOL = RHOI J*TTIP**EXPON 

HSQ = WTSURF (I,J) **2 

TTIP = 1.- (HSQ+TWLMR)/CP/TIPiJ/2. 

IF(TTIP.LT.O.) TTIP = 0. 

FHOT = RHOIJ*TTIP**EXPON 
DELRHO(I,J) = HHGL-RHOT 
^ RHOAV(I,J) = (RH0L+4.*RH0{I, J) ♦RHOT) /6. 

C CALCULATE F-SUB-T FOR SUBROUTINE COEF 
C 

40 FTT = H(I,J)/BTH (I,J) *DTHDT (I,J) *DFDM (I,J) 

FCH = ABS(FTT-FT (I, J) ) 

FCHANG = AMAX1 (FCHANG, FCH) 

IF (FCHANG. EQ. FCH) ICH=I 
IF (FCHANG. EQ. FCH) JCH=J 
FMAX = AMAX1 (FMAX, FTT) 

FHIN = AMINI (FMIN, FTT) 

FT(I,J) = FNEH+FTT+ (1. -FNEW) *FT (I, J) 

50 CONTINUE 

WRITE (NWRIT,1C40) FCHANG, ICH,JCH, FT (ICH, JCH) , 

I rnAXfiHIN 
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non no 


PRINT DEBOG OUTPOT IP REQUESTED 

IP (IDEBUG.LE.O) RETURN 

IF ( (ITER/IDEBOG) *IDEBUG.NE. ITER. AND. ITER. NE. 1) RETURN 
WRITE (NNRT?, 1020) 

HRITE(NWRT5,1000) ( (I, J, NS UBS (I, J) ,NSUBT(I,J) ,VTH(I,J) ,RHO(I,J) , 
1RH0AV(I,J) ,DELRHO(I, J) , DLDU (I,J) .FLOSS (I.J) ,T = 1 ,HN) ,J=1,MHTP1) 
WRITE (NWRT5, 1030) 

WRITE(NWRT5,1010) ( (I , J , DTHDS (I , J) , FT (I , J) , DFDH { I, J) ,XIOM(I,J) , 
IZETOM(I.J) .CAMP (I.J) .SAMP (I.J) .1=1. MM) ,J=1.MHTP1) 

RETURN 

--FORMAT STATEMENTS 

lOOr FORMAT (2I5.8G15.5) 

1010 FORMAT (215, 7G15. 5) 

1020 FORMAT ( 1 H 1 ////3 5X , 57 ( 1 H ♦) /35 X, 57H* CHANGING QUANTITIES ON T 

1HE ORTHOGONAL MESH */3 5X , 57 ( 1 H* ) // 4 X , 1HI , 4X, 1 H J , 5 X , 

25HHSUBS,11X,5HWSUBT, 1 1 X , 3HVTH , 1 1 X, 3 HRHO , 1 1 X , 5HRHOAV.9 X , 6HDELRHO, 
310X, 4HDLDU, 11 X.5HPL0SS) 

1030 FORMAT (////4X, 1HI,4X,1HJ,5X,5HDTHDS,11X,2HFT,12X,4HDFDM,11X, 
14HXIOH.1 1X,5HZET0M,1CX,4HCAMP, 1 1 X.4HSAMP) 

1040 FORMAT (/5x , 2 2 HM AXIMUM CHANGE IN FT =,G 1 3. 5 , 1 5X, 6HAT I =,I3, 

15H, J =,T3,1H,,6X,10HWHERE FT = , G 1 3 . 5/5X, 22 HHAXIMUM VALUE OF FT = 
2,G13. 5/5X.22HMINIMUM VALUE OF FT =,G13.5) 

END 


SUBROUTINE ILETE 
C 

C--ILETE CALCULATES THE INTEGER ARRAYS OF MESH POINT LOCATIONS WHICH ARE 
C--JUST INSIDE THE LEADING AND TRAILING EDGES OF THE BLADE 
C 

COMMON/I NPUTT/G A H, AR , MS El, OMEGA, REDFAC, V ELTOL, FNEW , DN EW , MBI , MBO , 

1 MM, MHT, NBL, NHUB, NTIP , NIN, NOUT, NBLPL, NPPP, HOST AT, NSL, NLOSS , 

2 LSFR.LTPL.LAMVT.LROT.LBLAD.LETEAN.ANGROT, IHESH, ISLINE, 

3 1ST ATL, I PLOT, ISUPER.ITSON, IDEBUG.ZOMIN, ZOMBI, ZOMBO.ZOMOUT, 

4 ROHIN,ROMBI,RCMBO,ROMODT,ZHIN,ZTIN,ZHOUT,ZTOUT,RHIN,RTIN, RHOUT, 

5 RTOUT.TITLEI (20) ,ZHUB(50) ,RHUB(50) ,ZTIP(50) ,RTIP (50) , SPIN (50) , 

6 RADIN (50) ,TIP (50) ,PRIP(5C) ,LAMIN (50) ,VTHIN (50) ,SFOUT (50) , 

7 RADOUT (50) .PROP (50) .LOSOUT (50) .LAMOUT (50) .VTHOUT (50) , 

8 BETALE(50) ,BETATE(50) ,ZHST(50) ,ZTST(50) ,PHST(50) ,RTST(50) , 

9 FLFR (50) ,PERCRD(50) , PER LOS (50) , ZBL (50 , 50) , RBL (50, 50) , 

1 THBL(50,50) ,TNBL(50,50) ,TTBL(50,5C) , THiBL (50 , 50) ,TH2BL ( 50 ,50) 

COM MON/CALC ON /MM Ml ,MHTP1,CP,EXPON,TGROG,PITCH,RLEH,RLET,RTEH,PTET, 

1 ZLE(50) ,RLE(50),ZTE(50) ,RTE(50) , ZLEOM (101) ,RLEOM (101) , 

2 SLEOM (101) .THLEOM (101) ,ZTEOM (101) ,RTEOM(101) ,STEOM (101) , 

3 THTEOM(IOI) ,ILE(101) ,ITE(101) , ZOM ( 10 0 , 10 1 ) , ROM { 100 , 10 1) , 

4 SOM (100, 101) ,TOM (100, 101) ,BTH(100, 101) , DTHDS ( 1 00 , 1 0 1 ) , 

5 DTHDT(100,101) ,PL0SS (100 ,1C1) , CPHI ( 1 00 , 1C 1 ) ,SPHI (100,101) 
COMHON/SLCOM/ILS (50) , ITS (50) , ZSL (1 00 , 50 ) , RSL ( 100 , 50) , MSL ( 1 00 , 50) , 

1 WZSL (100,50) ,WRSL (100,50) ,HMSL( 100, 50) , WTHSL ( 1 00 ,5 0) , 

2 ALPSL(100,50) ,BETSL (100 ,50) ,WSL (100,50) , WWCRSL ( 1 00 , 50) , 

3 CURVSL(100,50) , HLSSL ( 100 , 50) , WTSSL ( 1 00 , 50 ) 

C--LEADING EDGE 

CALL SPLINT (RLE, ZLE, NBLPL, RLE(1) , 1 , ZSPL, DZDR ,TEMP) 

DO 20 J=1,NSL 
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1-0 

10 I = 1*1 

CALL SPLENT (RSL (I, J) ,1 , ZSPL , DZDR , T E MP) 

IF (ZSPL.GT.ZSL (I, J) ) GOTO 1C 
2C ILS(J) = I 
C--TPAILING EDGE 

CALL SPLINT (RTE , ZTE, NBLPL, RTE (1) , 1 ,ZSPL, DZDF,TEP!P) 
DO 40 J=1,NSL 
I = ILS(J)-1 
3C I = 1*1 

CALL SPLENT (RSL (I, J) ,1 , ZSPL , DZDP ,TE MP) 

IF (ZSPL.GE.ZSL (I, J) ) GOTO 3C 
40 ITS (J) = T-1 

FETUPN 
END 


SDBROOTINE INDEV 

--INDEV CALCULATES A CORRECTION TO DTRDS TO ALLOW FOR INCIDENCE AND 
--DEVIATION (AFTER BLOCKAGE CCRRECTION) 

COMMON NREAD, N WRIT, ITER, IEND,NWRT1, NWRT2, NWPT3 , N WRT4, N WRT5 , N WRT6 
COHMON/IN PUTT/GAM, AR , MS FL, 0 M EGA , REDFAC, VELTOL, FNEW, DNEW , MB! , HBO , 

1 HM,MHT,NBL,NHUB,NTIP,NIN,NOUT,NBLPL,NPPP,NOSTAT,NSL,NLOSS, 

2 LSFR, LTPL,LAMVT,LROT, LBLAD,LETEAN, ANGROT, IMESH,ISLINE, 

3 ISTATL,IPLOT,ISUPER,ITSON,IDEBOG,ZOMIN,ZOMBI,ZOHBO,ZOMODT, 

4 ROMIN,ROMBI,ROMBO, ROHOUT,ZHIN ,ZTTN,ZHOnT,ZTOUT,RHTN,RTIN,RHOOT, 

5 RTOOT,TITLEI (2C) ,ZHUB (50) ,RHUB(50) ,ZTIP(50) ,RTIP (50) , SPIN (50) , 

6 RADIN (50) ,TIP (50) ,PRIP (50) ,LAMIN (50) , VTHIN(5Q) ,SFO0T(50) , 

7 RADOUT(50) , PROP (50) ,I,OSOUT(50) ,LAMOOT(50) ,VTHOOT(50) , 

8 BETALE(5C) ,BETATE(50) ,ZHST(50) ,ZTST(50) ,EHST(50) ,RTST(50) , 

9 FLFR(50) ,PERCRD(50) , PER LOS (50) ,ZBL(50,50) ,RBL (50,50) , 

1 THBL(50,50) ,TNBL(50,50) ,TTBL(50,50) , TH1 BL (50 , 50) ,TH2BL ( 50 , 50 ) 

COMMON/CALCON/MMM1 , MHTP1 ,CP , EXPON ,T GROG , PITCH, FLEH , PLET , RT EH , PT FT, 

1 ZLE(50) , RLE (50) , ZTE (50) , RTE (50) ,ZLEOM(101) ,RLEOM(101) , 

2 SLEOM (101) ,THLEOM(101) ,ZTEO!1(101) ,PTEOM(101) ,STBOM(101) , 

3 THTEOH(IOI) ,ILE(10 1) , ITE (101) ,ZOM ( ICO, 1^1) , ROM ( 1 00 , 1 0 1 ) , 

4 SOM (100, 101) , TOM (100 ,101) , BTH (100 , 1C 1) , DTHDS ( ICO , 1 0 1 ) , 

5 DTHDT(100, 101) ,PLOSS (100,101) ,CPHI (100, 1C 1) ,SPHI (100 , 10 1) 
COMMON/VARCOM/A (4, 100, 101) , OOM ( 1 00 , 1 0 1 ) , K (1 00 , 1 0 1 ) , RHO ( 100 , 1 0 1 ) , 

1 HSUBS (100, 1C1) ,HSDRT (100 ,1C1) ,WSUBZ (100, 10 1) , HSUBR ( 1 00 , 1 0 1) , 

2 WSOBM (100, 101) ,WTH(100, 101) , VTH ( 100 , 10 1 ) , W (1 00 , 1 01 ) , 

3 ALPHA (100,101) ,BETA (100,K1) , HHCR (100, 10 1) , CURV ( 100 , 10 1 ) , 

4 HLSURF(100,101) , HTSORF ( 1 00 , 1 0 1 ) , CAMP ( 1 00 , 1 01 ) , SAMP ( 1 00 , 10 1) , 

5 RHOAV (100, 101) ,OELRHO(100,101) ,PT(100,101) , DFDM ( 100 , ID 1 ) , 
fi XIOM (100,101) ,ZETOM (100,101) , DLDU (100, 101) 

COMMON/ROTATN/ZHROT(50) ,RHPOT(50) ,ZTROT(50) ,RTROT(5C) , 

1 ZLEOMR (101) ,RLEOMR (101) ,ZTEOMR (101) ,RTEOMR(101) , 

2 ZBLROT (50,50) ,RBLROT (50 , 50) ,ZOHROT (100, 10 1) ,ROMROT(100, 101) 
COHMON/INDCOM/NBLPC, NPPC,ZPC (51 , 51) ,FPC (51,51) , TTPC (51,51) , 

1 THPC (51,51) ,DTHDZ (51 ,51) ,DTHDR (51,51) ,BTHLE(101) ,BTHTE(101) , 

2 BTBFLE (101) ,BTBFTE (101) 

REAL LAMDAF 

5 IPRNT = 0 

IF (IPRNT.EQ.1) RETURN 
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DEGRAD = ia0./3. 1415927 
II = 1 
JJ = 1 

IF (IHESH.LE.O) GO TO 10 

IF ( (ITER/IHESH) *IHESH. EO. ITER.OP.TTEP.EQ. 1) GOTO 3C 
10 IP (ISLINE. LE . 0) GO TO 20 

IF { (ITER/ISLINE) *ISLINE.EQ. ITER. OR. ITER. EQ. 1) GOTO 30 
2C IF (ISTATL. LE. 0) GO TO 40 

IF ( (ITER/ISTATL) *TSTATL.NE. ITER. AND. ITER. NE. 1) GO TO 40 
30 »RITE(NHRT6,10GD) 

IF (REDFAC. LT. 1 . 0) WRI TE (NH RT6 , 1 0 1 0 ) ITER 
IF (REDFAC. EQ. 1.0. AND. lEND.LE.'^) WRITE (NHBT6 , 1020) ITER 
WRITE (NHRT6, 1030) 

IPRNT = 1 

--CORRECT DTHDS, AND CALCULATE INCIDENCE AND DEVIATION, ROW BY ROW 
--FROH HOB TO TIP 

40 DO 100 J=1,MHTP1 

-CALCULATE BLADE MEAN CAMBER ANGLE A"^ LEADING EDGE 
I = TLE (J) -1 

EXTRAP = SLEOM (J) -SOM (I , J) 

ALPHLE = ALPHA (I, J) + EXT RAP* ( ALPH A ( I ♦ 1 , J) -ALPHA (I , J) ) / (SOM ( I + 1 , J) 
ISOM (I,J) ) 

CALL LININT (Z PC, RPC, DT HDZ, N PPC , NBLPC, 5 1 , 5 1 , ZLEOHR (J) ,PLF.OMR(J) , 
1DTDZLE,II, JJ) 

CALL LININT (ZPC, RPC , DTHDR, N PPC, NBLP C, 5 1 , 5 1 , ZLEOM R (J) ,RLEOMR (J) , 
1DTDRLE,II,JJ) 

TANBBL RLEOM (J) * (DTDRLE*SIN (ALPHLE) +DTDZLF*COS (ALPHLE) ) 

IF (ITER.EQ.1) BTBFLE (J) =ATAN (TANBBL) 

BTBLLE = ATAN (TANBBL) *DEGRAD 

-CALCULATE BLADE FLOW ANGLE AT LEADING EDGE, CORRECTED FOR BLOCKAGE 
BETAFS = BETA (I, J) +EXTRAP* (BFTA (T, J) -BETA (1-1 ,J) ) /(SOM (I, J) - 
ISOM (1-1 ,J) ) 

RHOFS = RHO (I,J) +EXTRAP* (RHO(T,J)-RHO(I-1,J))/ 

1 (SOM (I,J) -SCH (1-1, J) ) 

FHOBF = RROAV (I* 1 , J) - (SOM (1 + 1 , J) -SOM (I, J) -EXTRAP) / 

1 (SOM (1 + 2, J) -SOM (1 + 1 , J) ) * (RHOAV(I + 2, J) -RHOAV (1 + 1 ,J) ) 

TANBBF = TAN(BETAFS) *BTHLE(J)/PITCH*RHOBF/RHOFS 
BETABF = ATAN (TANBBF) 

-CALCULATE DISTANCE FOR DTHDS CORRECTION 

BLDCRD = (RLEOM (J) +RTEOM (J) ) /2. * (THLEOM (J) -THTEOM (J) ) 

BLDCRD = SQRT (BLDCRD**2+ (STEOM (J) -SLEOM (J) ) **2) 

SLIDLE = BLDCRD/PITCH/RLEOH (J) 

DISTLE = AMIN1 (. 5, AMAX1 (1./6. , (1 1 . -4,*SLIDLE) /1«.) ) * (STEOM (J) - 
1SLEOH (J) ) 

C 

C — CORRECT DTHDS FOR INCIDENCE NEAR THE LEADING EDGE, 

C — USING LINEAR CORRECTION FOR ANGLE 
I = ILE(J) 

50 SDIST = SLEOM (J) +DISTLE-SOM (I,J) 

IF(SDIST.LE.O.) GO TO 60 

TANBIJ = ROM (I, J) * (DTHDS (I, J) *CAMP (I, J) +DTHDT (I, J) *SAMP (I, J) ) 
BETAIJ = ATAN (TANBIJ) 

BETAIJ = 8ETAIJ+ (BETABF-BTBFLE(J) ) *SDTST/DISTLE 
TANBIJ = TAN (BETAIJ) 
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DTHDS(I,J) = (TANBTJ/RO^' {I, J) -DT HDT (I , J) *S A MP (T , J) ) /C A MP (T , J) 

I = 14-1 
GO TO 5C 

60 BTBFLE(J) = DETAEF 

c 

C--CALCOLATE INCIDENCE ANGLES 

BLINC = BET ABF*DEGRAD-PTDLLE 
UBINC = BETAFS*DEGRAD-DTBLLE 
C 

C — CALCULATE BLADE MEAN CAMDEE ANGLE AT TRAILING EDGE 
I = ITE(J) +1 

EXTRAP = SOM (I, J) -STEOM (J) 

ALPHTE = ALPHA (I, J) + EXTRAP* ( ALPH A ( I - 1 , J) -ALPHA (I , J) ) / (SOM ( T , J) - 
ISOM (1-1 , J) ) 

CALL LINTNT (Z PC, RPC, D’^ HDZ, N PPC , N BLPC, S 1 , S 1 , ZTEOMR ( J) ,RTEOHR (J) , 
1DTDZTE,II, JJ) 

CALL LININT (Z PC , RPC, DT HDR, N PFC , NP LPC, 5 1 , S 1 , ZTKOM R (J) ,RTEOMR(J) , 
1DTDRTE,II,JJ) 

TANBBL = RTEOM (J) * (DTDRTE*SrN (ALPHTE) +DTr)ZTF*COS (ALPII”E) ) 

IF (ITER.EQ.1) BTBFTE (J) =ATAN (TANBBL) 

BTBLTE = ATAN (TANPBL) *DEGRAD 
C 

C — CALCULATE BLADE FLOW ANGLE AT TRAILING EDGE, CORRECTED FOR BLOCKAGE 
BETAFS = BETA (I, J) + EXTR AP* ( BETA ( I, J) -BETA (1*1 ,J) ) /{SOM (1+1 ,J) - 
ISOM (I, J) ) 

RHOFS = RHO (I, J) +EXTRAP* (RHO (I, J) -RHO (1 + 1 , J) ) / 

1 (SOM (1+1 ,J) -SOM (I, J) ) 

RHOBF = RHOAV (1-1 ,J) + (SOM(I,J) -SOM(T-1,J) -EXTRAP) / 

1 (SOM (1-1, J) -SOM (T-2, J) ) * (RHOAV (T-1,J) -RHOAV (I-2,J) ) 

TANBBF = TAN (BETAFS) *BTHTE (J) /PI'^CH + RHOBF/RHOFS 
BETABF = ATAN (TANBBF) 

C 

C — CALCULATE DISTANCE FOR DTHDS CORRECTION 
SLIDTE = BLDCHD/PITCH/RTEOM (J) 

DISTTE = AMIN 1 {. 5, AMAX 1 ( 1./6. , ( 1 1 . -4.*SLIDTE) /IB. ) ) * {^TEOM (J) - 
1SLEOM (J) ) 

C 

C--CORRECT DTHDS FOR DEVIATION NEAR THE TRAILING FDGE, 

C--USING LINEAR CORRECTION FOR ANGLE 
I = ITE(J) 

7C SDIST = SOM (I, J) -STEOM (J) +DISTTE 
IF (SDIST. LE.O.) GO TO 80 

TANBIJ = ROM (T,J) ♦ (DTHDS (I, J) *CAHP(I,J) +DTHDT (I,J) *SAMP (I, J) ) 
BETAIJ = ATAN (TANBIJ) 

BETAIJ = BETAIJ+ (BETABF-BTBFTE (J) ) *SDIST/DISTTE 
TANBIJ = TAN (BETAIJ) 

DTHDS(I,J) = (TANBI J/ROM (I , J) -DT HDT (I, J) *SAMP (I, J) ) /CAMP (T, J) 

1=1-1 t ! y • ! 

GO TO 70 

80 BTBFTE(J) = BETABF 
C 

C — CALCULATE DEVIATION ANGLES 

BLDEV = BETABF*DEGRAD-BTBLTE 
UBDEV = BETAFS*DEGRAD-BTBLTE 
C 

C--PRINT INCIDENCE AND DEVIATION ANGLES 
IF (IPRNT.EQ.O) GO TO 100 

IF ((LAMDAF(.5,ILE(1),1)-RVTHTA(.5,TLE(1),1)) .GT.P.) GO TO 90 
BLINC = -BLINC 


157 


non 


UBTNC = -UUINC 
BLDEV = -BLDEV 
UBDEV = -UDEEV 

9C WRITE (NWPT6 ,1 040) J , SLI NC, UB INC , DTBLLE, BLDEV, UBDEV, 'iTBLTE 
100 CONTINUE 

IF (IPRNT.GT. ">) WRITE (NWBT6 , 1050) 

RETURN 

--FORMAT STATEMEN-^S 

1000 FORMAT {1H1////44X,40 (1 H*) /44X,4''H*** INCIDENCE AND DEVIATION ANG 
1LES ***/49X, 30 (1H*) //) 

1010 FORMAT (/53X, 23 (1H*) /53X,23H* REDUCED MASBFLOW */53X , 23 ( 1 H*) / 
153X,18H* ITERATION NO. ,I2,3H */5 3X , 2 3 ( 1 H*) ) 

1020 FORMAT (/52X,25 (1H*) /52X,25H’' FULL HAS5FLOW */52X, 25 ( 1 H*) / 
152X,19H* ITERATION NO. ,I2,4H */52X , 25 ( 1 H*) ) 

103G FORMAT (//24X,10H* MESH * , 8X , 9 HI NCIDENCE, 7X , 1 1 H BL ADE ANGLE, 2H *, 
18X,9HDEVIATION,7X, 1 1HBLADE ANGLE, 2H */24X,10H* LINE *,3X, 
27HDLOCKED, 3X, 9HUNBLOCKED,4X ,7HAT L. E. , 3X, 1H*, 3X,7HBLOCKED, 3X, 
39HUNBL0CKED,4X,7HAT T.E. ,3X,1H*) 

1040 FORMAT (24X , 1 H* , 2X , I 3 , 3X , 2 ( 1 H*, 3 (F9 . 2 , 2X) , 3X) , 1 H*) 

1050 FORMAT (1H1) 

END 


SUBROUTINE TSONIN 
C 

C — TSONIN CALCULATES AND PRINTS OUT DATA AS INPUT TO THE 
C — TSONIC BLADE-TO-BLADE ANALYSIS PROGFAM 
C 

COMMON NREAD, N WRIT, ITER, IEND,NWRT1 , N WRT2 , N WPT 3 , N WRT4 , N WRT5 , N WPT6 
COMMON/INPDTT/GAM, AR,MSFl, OMEGA, REDFAC, VEITOL, FNEW, DNEW , MB T, HBO , 

1 MM, MHT, NBL, NHUE, NTIP, NIN, NOUT, N3LPL, NPPP, NOSTAT, NSL, NLOSS , 

2 LSFR,LTPL, L A M VT , LPOT , LBL A D , LFTE A N, ANGROT, IMESH,TSLINE, 

3 ISTATL, IPLOT, ISUPEK ,ITSON , TDEBUG , ZOMI N , ZOMBI , ZOMBO , ZOMOUT , 

4 ROMIN, ROMBT , R CMDO , ROMCUT , ZHIN , ZT IN , Z HOUT, ZTOUT , RHI N , PTT N, RHOUT, 

5 RTOUT,TITLEI (2C) ,ZHUB (50) ,RHUB(50) ,ZTIP(50) ,RTIP(50) ,SFTN {'^'') , 

5 RADIN(50) ,TIP(50) ,PFIP(5C) ,LAMIN(50) ,VTHIN(50) ,SFOUT(5Q) , 

7 SADOUT (5C) , PROP (5f ) , LOS OUT (5'' ) , LAMOUT (50) , VTHOUT (50) , 
a BETALF(50) ,BETATE(50) ,ZHST(5D) ,ZTST(50) ,PHST(59) ,PTST(50) , 

9 FLFR (50) ,PERCBD (5C) , PER LOS (50) ,ZBL (50,50) ,FBL (50,50) , 

1 THBL(50,50) ,TNBL(5C,50) ,TTBL(50,50) , THI BL (50 , 5^) ,TH2BL ( '^O, 50) 

COMMON/CALCCN/MMM1 ,MHTP1 ,CP , EXPO N , TGPOG , PITCH , RLER , PLF.T , RT EH , PT ET , 

1 ZLE (50) ,ELE (50) ,ZTE (50) , ETE (5^ ) , ZLEOH (10 1) ,RLEOM (101) , 

2 SLEOM (101) ,THLEOH (10 1) ,2TEOM (101) ,BTEOM (101) ,STEOM (101) , 

3 THTEOM (101) ,ILE (1'' 1) , ITE (101) ,ZOM ( 1CC, 10 1) ,POM {1f;D ,101), 

4 SOM (IE 3, 191) , TOM (100 ,101 ) ,3TH (100,1' 1) ,DTHDS (190,101) , 

5 DTHDT (190, 101) , PLOSS ( 100 , 1 9 1 ) ,CPHT ( 1 0 0 , 1 C 1 ) ,SPHI (100,10 1) 
COMMON/VARCOM/A (4 , 1 09 , 1 C 1 ), UOM ( 1 90 , 1 0 1 ), K ( 1 9 0 , 10 1 ) , RHO (100,101) , 

1 WSUBS (100,101) ,HSUBT ( 1 00 , 1 0 1 ) , WS UB Z ( 1 OC , 1 0 1 ) , WSUBP (100,101) , 

2 WSUBM (IjO, 191) ,WTH (KO, 1C 1) , VTH (ICO, 101) ,W (100,101 ) , 

3 ALPHA (IOC, 1 C'1) ,BETA (1 09, l^i) ,WWCR (100,191) , cURV ( 100 , 1 C 1 ) , 

4 wLSURE (100 , 10 1) , WTSUPF(1C0,19 1) ,CAMP (100, 191) ,SAMP ( ICC, 101) , 

5 RHOAV (100, Id) ,DELRHO (IOC , 10 1) ,PT (190, 10 1) ,DFDM ( 109, 101 ) , 

6 XIOM (1 OC , 1C 1) ,ZETOM (100,19 1) , DLDU (109, IP 1) 

COMMON/SLCOM/ILS (50 ) , I T5 (5 9 ) , ZS L ( 1 0 9 , 5 ^ ) , RSL ( 1 C 0 , 50 ) , MSL ( 1 CO ,59 ) , 

1 WZSL (19v.,5C) ,HRSL (100 ,50 ) , W MS L ( 1 00 , 50) , WTH5L ( 1 C9 , 50) , 
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2 ALPSL (100,50) ,BETSL ( 100, 50) ,WSL(10C,50) , HWCRSL (1 00 , 50) , 

3 CORVSL{100,50),WLSSL(10n,>^0) , HTSS L ( 1 00 , 5C ) 
C0MM0N/INDC0H/NBLPC,NPPC,ZPC(51,51) ,RPC(51,51) ,TTPC(51,51) , 

1 THPC (51 ,51) ,DTHDZ (51 ,51) ,DTHDR(51,51) ,BTHLE(1'>1) ,PTHTE(10 1) , 

2 BTBFLE (101 ) , BTBFTE (101) 

COMHON/ROTATN/ZHROT (50) ,RHROT(50) ,ZTROT(50) ,RTPOT(50) , 

1 ZLEOHR (101) ,RLEOMR (101) , ZTEOMR (1 0 1 ) ,RTEOnR(101) , 

2 ZBLPOT (50, 5 0) ,RBLROT (50, 50) , ZOHROT ( 1 OO , 1 o i ) , poiiPOT ( 1 00 , 10 1) 
DIMENSION ZHSPI (10O) ,ZMSP2 (IOC) ,THSP1 (ICO) ,THSP2 (100) , DTDM 1 (V'O) , 

1 DTDM2 (100) , D2TDM1 (10") ,D2TDM2 (ICO) , COR VI (100) ,CORV2(1CO) , 

2 a A DSP 1 (100) ,RADSP2(100) ,ALPHSP (100) , ZMPSP ( 1 00) , RMS P { 100 ) , 

3 BESP (100) , PLOSSL (100) ,DBDM (100) , D2BDH2 (ICO) ,DIST (100) , 

4 AAA (100) , BBB (100) 

REAL MSFL,HSL,LAHDAF 

--PRELIMINARY CALCULATIONS 


IF (ITSON.LE.O) RETURN 

IF ( (ITER/ITSON) *ITSON . N E. ITER) RETURN 
WRITE (NMRT4 , 1 000) 

IF (REDFAC. LT . 1 .0) WRITE (NWRT4, 10 10) ITER 
IF (REDFAC. EQ. 1 . 0. AND. lEND. LE.O) WRITE (NHRTU, 1020) ITER 
IF (REDFAC.EQ. 1 . 0. AND. TEND. GE. 1 . AND. ISUPER. LE.1) WRITE(NWRT4,1C3") 
IF (REDFAC. EQ. 1 . 0. AND. TEND. GE. 1 . AND . ISUPER . EQ. 2) WRITE (NWRT4, 1^ 4" ) 
ARTEM = AR 

ZMSFL = MSFL/100 ./REDFAC 

OHTEH = OMEGA/REDFAC 

REDTEH = 1.0 

VELTEM = .01 

MBITS = 21 

HBOTS = 61 

HMTS = 81 

HBBI = 20 

NRSP = MM 

NSLTS = 0 

LRVB = C 

LOSS = 0 

IF (NLOSS.GT.O) LOSS=1 

LWCR =1 

LIPS = 0 

IIHESH = 0 

IISLIN = 5 

IIBSUR = 1 

IIPLOT = 1 

IIDEBG =0 

DEGRAD = 180. /3. 1415927 
BFACTR =1.0 


C--CALCULATE AND PRINT OUT TSONIC DATA ALONG EACH OF THE STREAMLINES 
C--ONE STREAMLINE AT A TIME 
C 


DO 310 JS=1,NSL 
II = 1 
JJ = 1 


TIPTEH = TIPF (FLFR (JS) ) 

RHOIP = RHOIPF (FLFR (JS) ) 

RVTHI = LAMDAF (FLFR (JS) ,ILE (1) ,1) /REDFAC 
RVTHO = RVTHTA (FLFR (JS) , ILE(1) , 1)/REDFAC 
IF (GAM.NE.O.) GC TO 5 
ARTEM = 0. 
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TIPTEH 

RHOIP 


0 . 

AR 


--INTERSECTION OF STREAMLINE WITH BLADE LEADING AND TRAILING EDGES 

5 CALL INPSCT (Z SL ( 1 , JS) , R SL ( 1 , JS) , MM , ZLE, RLE, NBLPL , ZLESL , PLESL) 
CALL INRSCT (ZSL ( 1 , JS) , R S L ( 1 , JS) , MM , ZTE , PT F, N BLPL, ZTESL , RTFSL ) 

--CALCULATE STREAMSHEET LOCATION AND THICKNESS, AND LOSS DISTRIBUTION 

CALL ROTATE (- ANGROT, ZSL (1 , JS) ,RSL(1 ,JS) , MM, 1 , 100 , 1 , DTST , PM SP) 

DO 10 IS=1,MM 

ZHRSP(IS) = MSL (IS, JS) -MSL (1 , JS) 

CALL LININT(ZOHROT,ROMPOT,RHOAV,MH,MHTPl,10O,101,ZSL(IS,JS) , 

1RSL(IS,JS) ,RHOSL,II, JJ) 

CALL LININT (ZOMROT , ROMROT, BTH , MM , M HTP 1 , 1 00 , 1 Cl, ZSL (IS, JS) , 
1RSL(IS,JS) ,BTHSL,II, JJ) 

CALL LININT (ZOM ROT, RO MR OT, PLOSS, HH, HHTPl , 100 , 10 1 , ZSL ( IS , JS) , 
1RSL(IS,JS) ,PLOSSL(IS) ,II,JJ) 

CALL LININT (ZOMROT , ROMROT,OELRHO, MM, HHTPl , ICO, 10 1 , ZSL (IS, JS) , 
1RSL(IS,JS) , DRHOSL, II, JJ) 

CALL LININT(ZOMROT,ROMROT,HLSURF,HM,MHTP1,1O0,101,ZSL(IS,JS) , 

1RSL(IS,JS) ,WLSFSL,II, JJ) 

CALL LININT (ZOMROT , POMROT, H TStJR F , MM , WHIP 1 , 1 00 , 1 0 1 , ZSL (TS,JS) , 
1RSL(IS,JS) ,WTSFSL,II ,JJ) 

ROHMAV = RH0SL*HHSL (IS, JS) +DPH0SL/12.*C0S(BETSL (IS,JS) ) ♦ 

1 (HLSFSL-HTSFSL) 

10 BESP(IS) = ZMSFL/ROWHAV/RMSP (IS) /nTHSL*EFACTF 
ZHSFL = ZMSFL+DFACTR 
C 

C--CALCULATE BLADE SURFACE COORDINATES WITH RESPECT TO HERIDL ORIGIN 
C--AT ALL POINTS ON BLADE WHERE VERTICAL ORTHCGONALS PASS THROUGH 
C--THE STREAMLINE 
C 

II = 1 
JJ = 1 

NBLPTS = ITS (JS) -ILS (JS) +3 
ILSJ = ILS(JS) 

ITSJ = ITS(J5) 

ZHSP1 (1) = 0. 

DELM = SQRT((ZSL(ILSJ,JS)-ZLESL) **2+(RSL(ILSJ,JS)-RLESL)**/-) 

CALL LININT (Z PC , RPC, THPC , NPPC , NR LPC , 5 1 , 5 1 , ZLESL, RLESL , 
1THLESL,II, JJ) 

ISB = 2 

DO 20 IS=ILSJ,ITSJ 

ZHSP1 (ISB) = ZMRSP (IS) -ZMRSP (ILSJ) f DELM 

CALL LININT (Z PC, RPC, THPC, NPPC , NBLPC , 5 1 , 51 ,ZSL (IS, JS) , 

1RSL(IS,JS) ,THSL,II,JJ) 

CALL LININT (Z PC , RPC, TTPC , NPPC ,NB LPC , S 1 , 5 1 , ZSL (TS , JS ) , 

1RSL(IS,JS) ,DBL,II,JJ) 

THSPi (ISB) = THSL-THLESL + DBL/2. 

THSP2(ISB) = THSL-THLESL-DBL/2. 

20 ISB = ISB+1 

DELM = SQRT ( (ZTESL-ZSL (TTSJ,JS) ) **2+ (RTESL-PSL (TTSJ,JS) ) **2) 

ZMSPI (NBLPTS) = ZHSPI (NBLPTS-1) +DELM 
CHORD = ZHSPI (NBLPTS) 

CALL LI NINT(Z PC, RPC, THPC, NPPC, NBLPC, 51, 51, ZTESL, RTESL, 

1THTESL,II, JJ) 

CALL LININT (Z PC, RPC, TTPC, NPPC, NBLPC, 51, 51, ZLESL, RLESL, 


160 



1DBL,TI, JJ) 

IF (DBL.LT.CHORD/10C0.) DBL=CH0PD/1 000 . 

THSP1(1) = DBL/2. 

THSP2(1) = -DBL/2. 

CALL LININT (Z PC , RPC , TT PC, NPPC, NB LPC , 1 , 5 1 , ZTeSL , RTESL , 
1D3L,II,JJ) 

IF (DBL.LT.CHORD/10C0.) DBL=CHORO/1 COO . 

THSP1 (NBLPTS) = THTESL-T[iLESL«-DBL/2 . 

THSP2 (NBLPTS) = THrESL-THLESL-DBL/2 . 

DO 25 IS=1, NBLPTS 
25 ZnSP2(IS) = ZMSP1 (IS) 

C 

C--SHIFT STREAMSHEET MERIDIONAL COORDINATES TO ORIGIN AT BLADE 
C — LEADING EDGE, 

C--AND CALCULATE FIRST AND SECOND DERIVATIVES OF STREAMSHFET 
C 

DELM = ZMRSP (ILSJ) -ZMSP1 (2) 

DO 30 IS=1,MH 

30 ZnRSP(IS) = ZWRSP (IS) -DELM 

CALL SPLINE (ZMRSP, BESP, MM, DBDH, D23DM2) 

C 

C — ELIMINATE ANY BLADE SURFACF POINTS VERY CLOSE ^-0 THE 
C--LEADING AND TRAILING EDGES 
C 

ILSJ1 = ILS(JS) 

ILSJ2 = ILS(JS) 

DELMSP = G. 10*CHORD/FLOAT(NBLPTS-1) 

40 IF ( (ZMSP1 (2) -ZMSP1 (1) ) .GT. DELMSP) GO TO 60 
DO 50 IS=3, NBLPTS 
ZMSP1 (IS-1) = ZHSP1 (IS) 

ZMSP2(IS-1) = ZMSP2(IS) 

THSPI(IS-I) = THSPI(IS) 

50 THSP2(IS-1) = THSP2(IS) 

NBLPTS = NBLPTS-1 
ILSJ1 = ILSJ1+1 
ILSJ2 = ILSJ2+1 
GO TO 40 

60 IF ( (ZHSPI (NBLPTS) -ZMSP1 (NBLPTS-1) ) .GT. DELMSP) GO TO 70 
ZHSP1 (NBLPTS-1) = ZMSP1 (NBLPTS) 

ZMSP2 (NBLPTS-1) = ZMSP2 (NBLPTS) 

THSP 1 (NBLPTS- 1 ) = TH SP 1 ( NBLPTS) 

THSP2 (NBLPTS-1) = THSP2 (NBLPTS) 

NBLPTS = NBLPTS-1 
GO TO 60 
C 

C — CALCULATE GRADIENTS ON BOTH BLADE SURFACES 

C — CALCULATE RADII FROM CENTERLINE, AT LEADING AND TRAILING EDGES 
C 

70 CALL SPLINE (ZMSP1,THSP1, NBLPTS, DTDM1,D2TDM1) 

CALL SPLINE (ZMSP2,THSP2, NBLPTS, DTDM2,D2TDM2) 

CALL SPLINT (ZMRSP,RMSP, MH,0. , 1 , R ADLE , TEM 1 ,TSM2) 

CALL SPLINT (ZMRSP,RMSP, MM, CHORD, 1 , R ADTE, TEH 1 , TEH2 ) 

C 

C — CALCULATE LEADING EDGE RADIUS, POINTS OF TANGENCY, AND 
C--TANGENCY ANGLES 
C 

ICOUNT = 0 
DAMP = 1. 

80 BETH = ATAN (RADLE + DTDM1 (1) ) 


E-8969 
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BETI2 = ATAN (SADLE*DTDN2 (1) ) 

RT1 = RADLE* (THSP1 (1) -THSP2 (1) ) *COS ( (BETI14-PETI2) /2.) /2. 

90 ZLTAN1 = RI1* (1 . -SIN (BETH ) ) 

ZLTAN2 = RI1*(1.+SIN(BETI2) ) 

CALL SPLTNT(ZMSP1,THSP1 ,NBLPTS,ZLTANl,1,TLTANl,DTANl,T’Enl) 

CALL SPLINT(ZMSP2,THSP2,NBLPTS,ZLTAN2,1,TLTAN2, DTAN2, TEf12) 

BETTI = ATAN (RADLE+DTAN1) 

BETI2 = ATAN (RABLE*DTAN2) 

RIINEH = RADLE* (TLTAN1-TL’TAN2)/(COS (BETTI) +COS(BETT2) ) 

IF (ABS((RI1NEH-RI1)/BI1).LT..001) r.O to 110 
rCOONT = TCCUNT+1 
IF (ICOUNT . LE . 1 00) GO TO 1Q0 
WRITE {NWPT4, 1200) 

GO TO 110 

ICO RIl = (DAMP*RI1+RI1NEH)/(DAKP+1.) 

IF (RIl .GT.O. ) GO TO 90 
DAMP = DAMP+1 . 

GO TO 80 

lie PTI = RI1NEW 
RI2 = RIl 
C 

C--CALCDLATE TPAILING EDGE RADIUS, POIN'^S OF TANGENCY, AND 
C--TANGENCY ANGLES 
C 

ICOUNT = 0 
DAMP = 1. 

12C BETOI = ATAN (RADTE + DTDMl (NBLPTS) ) 

BET02 = ATAN (RADTE*DTDM2 (NBLPTS) ) 

ROI = RADTE*(THSP1 (NBLPTS) - TR SP2 ( N BLPTS) ) *CO S ( { BETO 1 + B ET02 ) /2 . ) /2 . 
13C ZTTANI = CHCRD-RGi* (1 . +SIN (BETOI) ) 

ZTTAN2 = CHCRD-R01+ ( 1 . -SIN (BET02) ) 

CALL SPLINT (Z MSP 1 , TH SP 1 , NBL PTS , ZTT A N1 , 1 , TTT AN 1 , D"^ AN 1 , T EM 1 ) 

CALL SPLINT (Z MSP2 , THSP2 , NBLPTS, ZTT A N2 , 1 , TTT AN2 , DTA N2, TEM2) 

BETOI = ATAN (RADTE+DTAN1) 

BET02 = ATAN (RACTE+DTAN2) 

R01NEW = RADTE* (TTTAN1-TTTAN2) /(COS (BETOI) 4-C0S(BET02) ) 

IF (ABS ( (ROINHW-ROI) /BOl) . LT. .0"' 1) GOTO 1B^ 

ICOUNT = ICOUNT+1 
IF (ICOUNT. LE . 100) GO TO 140 
WRITE (NHPT4 ,1210) 

GO TO 1B0 

140 ROl = (DAMP*R01 + R01NEW) / (DAMP4-1 . ) 

IF (ROI.GT.C.) GO TO 130 
DAMP = DAMP+1. 

GO TO 12C 
15C EOl = R01NEW 
R02 = ROI 
C 

C--SUBSTITUTE POINTS OF TANGENCY FOE FIRST AND LAST POINTS IN 
C--SUBFACE COOPDINATE ARRAYS 
C 

ZMSPI (1) = ZLTAN1 

ZMSP2(1) = ZLTAN2 
ZMSPI (NBLPTS) = ZTTANI 
ZMSP2 (NBLPTS) = ZTTAN2 
THSPi (1) = TLTANI 

THSP2(1) = TLTAN2 
THSPi (NBLPTS) = TTTAN1 
THSP2 (NBLPTS) = TTTAN2 
NSPLI = NBLPTS 
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NSPL2 = NBLPTS 
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17C 


18( 


190 


200 


21C 


C 

C- 

c- 

c 


DELfISP = 0, 1 0 ♦CHCRD/FLO AT (NBLPTS- 1 ) 

^”SP'' (1) +DELMSP) GO TO 180 
DO 170 IS=3,N8PL1 

ZnSPI (IS-1) = ZnsPI (IS) 

THSPI(IS-I) = “IHSPI (IS) 

NSPL1 = NSPL1-1 
ILSJ1 = ILSJ1+1 
GO TO 16C 

So 200 

ZMSP2(IS-1) = ZMSP2(IS) 

THSP2(IS-1) = THSP2(IS) 

N5PL2 = NSPL2-1 
TLS.T2 = ILSJ2+1 
GO TO 180 

THSP1 (NSPL1-1) = THSP1 (NSPL1) 

NSPL1 = NSPL1-1 
GO TO 200 

IP {ZMSP2 (NSPL2-1) .LT.ZMSP2 (NSPL2) 

ZMSP2 (NSPL2-1) = ZMSP2 (NSPL2) 

THSP2(NSPL2-1) = THSP2(NSPL2 
USPL2 = NSPL2-1 
GO TO 210 


■DFLMSP) GO TO 220 


COORDINATE. SHIFT FROM .HEEIDL ORIGIN TO 
ISONIC ORIGIN, and SHIFT COORDINATES ^ ni.,±N iU 

"TLTAN2*C0S (BETH)) /(COS (PETI1) 

DO 230 IS=1,NSPL1 
23C THSP1 (IS) = THSP1 (IS) -DELTH 
DO 240 IS=1,NSPL2 
24C THSP2(IS) = THSP2 (IS) -DELTH 

-CALCULATE STAGGER AND STACKING COORDINATE 
THSTAK = THLESL+DELTH 


--CALCULATE RADII FROM CENTFRIINE TO 


blade surface points 


C 

C- 

C- 

C 


CALL splint (ZMRSP,RMSP, mm, ZMSPI 
CALL SPLINT (ZMRSP, RMSP, MM, Z HSP2 


NSPL1, 

NSPL2, 


-CALCULATE SLOPES, 
-BLADE SURFACE 


SECOND DERIVATIVES, AND 


RADSP1,AAA,BBB) 
RADSP2, AAA,BBE) 

CURVATURES ON UPPER 


SLOPE1 = TAN (BETH) /RADSP1 (1) 

SLOPEN = T AN ( B ET01 ) /R ADSP1 ( NSPL 1 ) 

(Z?1SP1,THSP1 ,NSPL1,SLOPE1 
BETH = BETH*DEGRAD 


SLOPEN, DTDM1,D2TDM1) 
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BET01 * BET01*DEGBAD 
TUSL = ZMSPI (1) -ZMRSP (1) 

CALL SPLINT (MSL(1,JS) , ALPSL ( 1 , JS) , MM , TMSL, 1 , ALPHSP ( 1 ) ,TLfH ,TEf12) 
N5PLM = NSPLl-1 
DO 250 IS=2,NSPLH 
ITEM = ILSJUIS-2 
250 ALPHSP(IS) = ALPS! (ITEM, JS) 

THSL = ZMSPI (NSPL1) -ZHRSP(1 ) 

CALL SPLINT (MSL ( 1 , JS) , A LPS L ( 1 , JS) , MM, THSL, 1 , ALPHSP ( NSPL 1) , 
1TEH1,TEH2) 

DO 260 IS=1,NSPL1 

260 CURV1 (IS) = (RADSPi (IS) *D2TDM1 (IS) +SIN (ALPHSP (IS) ) +DTDM1 (IS) ) / 

1 (I.* (RADSP1 (IS) *DTDM1 (IS) ) **2) . 5 

—CALCULATE SLOPES, SECOND DERIVATIVES, AND CORVATURES ON LOWER 
--BLADE SURFACE 

SLOPE1 = TAN(BETI2)/RADSP2(1) 

SLOPES = TAN (BETC2) /RADSP2 (NSPL2) 

CALL SPLISL (ZHSP2,THSP2, N3PL2, SLOPEI , SLOPEN , DTDH2 ,D2TDM2) 

BETI2 = BETI2*DEGRAD 
BET02 = BET02*DEGRAD 
TMSL » ZMSP2(1)-ZMRSP(1) 

CALL SPLINT (MSL (1,JS) , ALPS! (1, JS) , MM ,TBSL, 1 , ALPHSP ( 1) ,TEM1 ,TEM2) 
NSPLH = NSPL2-1 
DO 270 IS=2,NSPIM 
ITEM = ILSJ2+IS-2 
270 ALPHSP(IS) = ALPSL (ITEM, JS) 

TMSL * ZMSP2 (NSPL2) -ZMRSP(I) 

CALL SPLINT (MSL (1 ,JS) , ALPSL (1 , JS) , H M, T MS L, 1 , ALPHSP (NSPL2) , 
1TEH1,TEM2) 

DO 280 IS=1 ,NSPL2 

280 CtJBV2(IS) = (RADSP2 (IS) *D2TDH2(IS) +5IN(ALPHSP(IS) ) *DTDM2 (IS) ) / 

1 (1 .♦ (RADSP2 (IS) *DTDM2 (IS) ) **2) **1 . 5 

— PRINT TSONIC DATA 

WRITE (NHRT4, 1050) JS,FLFR(JS) 

IF (BFACTR.NE. 1.C) WRITE (NWRT4, 1 055) 

WRITE (NWRT4 ,1060) 

HRITE(NSRT4,1310) GAM,ARTEM,TIPTEM, RHOIP,OHTEM,ZMSFL 
WRITE (NWRT4, 1070) 

WRITE(NWRT4,1 340) VELTEH 
WRITE (NWRT4 ,1080) 

WRITE (HWRT4, 1 320) NBL, NSPL1 , NSPL2,NRSP 
WBITE(NWRT4,1090) 

WRITE (NWRT4, 1330) LRVB, LOSS , LWCR , LIPS 
WRITE (NWRT4, 1100) 

WRITE(NWRT4,1310) RVTHI,RVTHO 
WRITE (NWRT4, 1110) 

WRITE (NHRT4 , 1 350) CHORD, STGR, DELTH, THSTAK 
WRITE(NWRT4,1120) 

WRITE (NWRT4,T360) RI 1 , BETI 1 , ROl , BETOl 
WRITE (NWRT4,1 130) 

WRITE (NWRT4, 1370) (IS, ZMSPI (IS) ,THSP1 (IS) ,DTDM1 (IS) ,D2TDM1 (IS) , 
1CORV1 (IS) ,RADSP1 (IS) ,IS=1,NSPL1) 

WRITE (MWRT4, 1140) 

WHITE (NWRT4, 1360) R12, BETI2 , P02 , BET02 
WRITE (NWRT4,1 150) 
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c 

c- 

c 


WRITE (NHRT4, 1 370) (I S, ZMSP2 (IS) , THS P2 (IS) ,DTDM2 (IS) .D2TDH? (IS) . 
1C0RV2(IS),RADSP2(IS) ,IS=1,NSPL2) un/ji.), 

WRITE (NWRT4,1 160) 

WRITE{NWRT4,1380) (IS, ZMRSP (IS) ,RMSP(1S) ,BESP(IS) , WWCRSL (I S , JS) 
IPLOSSL(IS) ,DBDf1(IS),D2BDM2(IS),IS=1,HM) 

WRITE (NWRT4, 1 170) 

WRITE (NWRT4,1 300) 

-WRITE OUTPUT AGAIN IN CARD IMAGE FORMAT 


30C ICARDS = 0 
NWRT7 = 6 
IF (ICARDS. EQ.C) 
WRITE (NWRT7,1 400) 
WRITE(NWRT7,1450) 
WRITE (NWRT7,1U60) 
WRITE(NWRT7,1440) 
WRITE (NWPT7,1440) 
WRITB{NWRT7,1460) 
WRITE (NWRT7, 1470) 
WRITE(NWRT7,1480) 
WRITE (NWRT7, 1420) 
WRITE(NWRT7,1430) 
WRITE(NWRT7,1480) 
WRITE(NWRT7, 1420) 
WRITE (NWRT7,1430) 
WRITE(NWRT7,1420) 
WRITE(NWRT7,1420) 
WRITE(NWRT7,1430) 
WRITE (NWRT7,1410) 
WRITE(NWRT7,1410) 
WRITE (NWRT7,1 440) 

IF (NWRT7. EQ. NWRT4) 
310 CONTINUE 
RETURN 


GO TO 3 1C 
JS,FLFR (JS) 

GAM, ARTEM,TIPTEM, RHOTP, OMTEN, ZMSFL 
REDTEM,VELTEM 

MBITS, MOOTS, M MTS, MBBT,NBL,NSPL1 ,NSPL2, NR SP, NSLTS 

LRVB, Less, LWCR, LIPS 

RVTHI,RVTHO 

CHORD, STGR 

RIl, BFTI1 ,POl, BET01 

(2MSP1 (IS) ,TS=1,NSPI1) 

(THSP1 (IS) ,TS=1,NSPL1) 

RI2,BETI2,R02,BET02 
(ZMSP2 (IS) ,IS=1,NSPL2) 

(THSP2 (IS) ,IS=1,NSPL2) 

(ZMRSP(IS) ,IS=1,MM) 

(RMS P (IS) ,IS=1,MM) 

(BESP (IS) ,IS=1 ,HM) 

(WWCRSL(IS,JS) ,TS = 1,MM) 

(PLOSSL(IS) ,IS=1, MM) 

IIMESH,IISLIN, IIBSOR,TIPLOT, IIDEBG 
WRITE(NWPT4, 1300) 


--FORMAT STATEMENTS 

1000 FORMAT (///45X, 39 (1H*) /45X, 39H*** INPUT DATA FOR TSONIC PROGRAM 
^ 1***/50X,29 (1H*)//) 

1010 FORMAT (/53X, 23 (1H*) /53X,23H* REDUCED MASSFLOW */S 3X , 23 { 1 H*) / 
153X,18H* ITERATION NO. ,I2,3H */53X , 2 3 (1 H*) ////) 

1020 FORMAT {/5 2X, 2 5 ( 1 H*) /52 X ,2 5 H* FULL MASSFLOW */52X, 25 (1H*) / 

152X,19H* ITERATION NO. ,I2,4H */52X, 25 (1H*) ////) 

1030 FORMAT (/52X, 25 ( 1H*) /52X,25h* FULL MASSFLOW */42X, 45 (1 H*) / 

142X, 1H*, 12X,19HTRANSONIC SOLUTION , 1 2X , 1HV42X, 4 5H* BY VELOCITY G 
2RADIENT APPROXIMATE METHOD */35X, 59 (1H*) /35X,59H* ALL VELOCITIES 
3 SMALLER THAN CHOKING MASSFLOW SOLUTION */35X, 59 (1 H*) ////) 

1040 FORMAT {/52X,25 (1H*) /52X,25H* FULL MASSFLOW */42X, 45 (1H*) / 

142X,1H*,12X,19HTRANS0NIC SOLUTION, 12X, 1HV42X,45H* BY VELOCITY G 
2RADIENT APPROXIMATE METHOD */3 5X, 59 ( 1 H*) /35X, 59h* ALL VELOCITIES 
3 LARGER THAN CHOKING MASSFLOW SOLUTION */35X,59 (1 H*) ////) 

1050 FORMAT (2X ,76 (1 H *) /2 X , 3 8H* TSONIC INPUT — STREAMLINE NUMBER, 13 
1,23H STREAM FUNCTION =,F8.4,4H */2X, 1 10 ( IHE) /2X, 1 IOH* NOTE 

IT MERIDIONAL AND TANGENTIAL COORDINATES ON THIS B 

3LADE SECTION IS THE TSONIC ORIGIN, */2X,93H* THAT IS THE FARTHE 
UPSTREAM ON THE LEADING EDGE RADIUS. THE HERIDL "cOORDIN 
5ATES,16X,1H*/2X,95H* WHICH HAVE A DIFFERENT ORIGIN, HAVE BEEN SHI 

6FTED BY THE PROGRAM TO GIVE THESE TSONIC INPUTS. , 14X, 1H*/2X 
7110 (1H*)//) » t , in /CK, 
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1C55 FORMAT (2 X , 11 6 ( 1 H* ) /2 X , 99H* NOTE -- ZHSFL AND THE BESP ARRAY TN 
1 THE FOLLOWING ODTPDT HAVE BOTH BEEN HOLTIPLIED BY BFACTR =,G1U.7, 
23H */2X, 1 16 (1H*)///) 

106C FORMAT (5X, 3HGAH, 13X,2HAR, 1 3X,3HTIP , 1 1X,5HPHOTP, 1^' X ,5HOHEG A , 12X, 
15HZMSFL) 

1C7P FORMAT (5X,6HREDFAC,8X,6HVELT0L) 

1P80 FORMAT (5X,53HMBI MBO MM MBBT NBL NSPL1 NSPL2 NRSP NS 
1L) 

1090 FORMAT (5X,22HLRVB LOSS LWCR LIPS) 

1100 FORMAT (5X,5HRVTHI , 1 0 X, 5HRVTHO, 1 1X,4HFSHI, 1 1X,4HFSMO, 1 1X,4HSSM1, 

1 11X,4HSSM2) 

1110 FORMAT (5X,5HCHORD, 10X,4HSTGR,42X,5HDELTA,1CX,6HTHSTAK) 

1120 FORMAT <//5X, 25HELADF SURFACE 1 1 5X , 3HRI 1 , 1 2X , 5HBETI 1 , 

110X,3HFO1,11X, 5HBET01) 

1130 FORMAT {//5 X , 5 HPOI NT , 6 X , 5H Z MSP1 , 1C X , 5HTHS PI , 6X, 10HDERIVATTVE, 3X, 

1 14H2ND DERIVATIVE, 3X,9HCURVATnRE,8X,6HRADIUS) 

1140 FORMAT (//5X,25HBLADE SURFACE 2 ****♦, 1 5X , 3HRT 2 , 1 2X , 5 HBETT2 , 

110X,3HR02,1 IX, 5HPET0 2) 

1150 FORMAT (//5 X , 5 HPOI NT , 6 X , 5H Z MS P2 , 10 X , SUTHS P2 , 6X , 10HDER I V AT I VE , 3X , 
114H2ND DERIVATIVE,3X,9HCURVATURE,8X,6HRADIDS) 

1160 FORMAT (//5 X , 2 9H STRE A M CHANNEL DATA ***♦ V/5X, 5HPOINT, 6X , 

15HZMRSP, 10X,4HRMSP, 10X, 4 HB ESP, 1 0 X , SHWCWCR , 1^ X , 5HPLOSS , 19X, 4HDBDM, 
210X,6HD2BDH2) 

1170 FORMAT (//5X, 36HIMESH ISLINE lESURF TPLOT IDEBUG) 

1200 FORMAT (/2X,62HA LEADING EDGE RADIUS COULD NOT BE OBTAINED IN ICO 
1ITERATI0NS./2X,64HRT1 , RI2, BETTI, BETI2, STGR, DELTA, AND THSTAK 
2MAY BE IN ERROR////) 

121G FORMAT {/2X,63HA TRAILING EDGE RADIUS COULD NOT BE OBTAINED IN 100 
1 ITERATIONS. /2X, 49HR01 , R02, BET01, BET02, AND STGR HAY BE IN ERRO 
2R.////) 

130C FORMAT (1H1) 

1310 FORMAT ( 1 X , G1 4 . 7 , 7G 1 5 . 7) 

1320 FORMAT (27X , 14 , 2 X , 1 4 , 3X , 14 , 3X , 14) 

1330 FORMAT (2X,4I6) 

134C FORMAT (19X,F6.4) 

135'' FORMAT (1X,G14.7,1X,G14.7,32X,2G15.7) 

136C FORMAT (40X,4G15.7) 

1370 FORMAT ( 3X , 15 ,2 X , 6G 1 5 . 7 ) 

138C FORMAT ( 3 X , 15 , 2X , 5G 1 5 . 7 , 8X , 2G 1 5 . 7) 

14QC FORMAT (5X , 17HSTRE AMLI NE NUMBER, 13, 23H -- STREAM FUNCTION =, 

1F8, 4) 

141C FORMAT (8F10.5) 

1420 FORMAT (8F10.6) 

1430 FORMAT (8F10.7) 

1440 FORMAT (1615) 

145C FORMAT ( FI 0 . 5 , 2F 10 . 4 , FI 0 . 7 , FI 0 . 3 , F1 0 . 8) 

1460 FORMAT (2F10.4) 

1470 FORMAT { F1 0 . 6 , F 1 0 . 7) 

1480 FORMAT ( Fl 0 . 7 , FI 0 . 4 , FI 0 . 7, F 1 0 . 4) 

END 


SUBROUTINE SLPLOT 

--SLPLOT PLOTS THE STREAMLINES IN THE HUB-SHROUD FLOW PLANE 
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GK3 

(u) ZSWDiil TTVO 


C0^^'10N NREAD, N WHIT, T TER, TENn,NW'^?1 , ?4WPT2, NWFT?, HMPTU, NMRT'’’, 
CO'I'ION/INPUTT/GAM, AR ,MSFL, O'lEGA, RET) FAC , V ELTOL , EN EW, PNE W , MR T , f^PO , 

1 MH,MHT,NBL, MHnB,NTIP,NIN,NO'I'^, NBLPL,NPPP, N05T AT , NB E , NT.OSS , 

2 L3FR,LTPL, L AN VT , L POT , L3L A D, LFTE A N , ANGPOT , TMEBH , T SLT TJE , 

3 ISTATL, IPLOT, IBQPER ,TTSON ,TDET’!IG,ZCNIN,ZCnBT,70MPO,ZOMOrjT, 

4 RONIN, FOHBr,ROHDO, ROMOOT, ZHIN , ZT TN , ZHOUT , ZTOGT, RHT V , PTT N , P!i OUT , 

5 RTOtIT,TITLEI (2^^) ,ZHHB (SO) .RHflPC^i) ,ZTTP('"'') ,PTTP (S)) ,.SFTN {^') , 

6 RADItJ (SO) ,TIP (5T) ,rRrP(S'‘) , LANIN (SP) ,VTHIN (5'!') ,BFOUT (SO) , 

7 RADOUT(5T") ,PRCP(5'') , LOSOtl’T’ (5 '; ) ,LAMOr'T(SC) , V'T’HOII^ (5'') , 

8 BETALE (50) , ESTATE (5 3 ) ,ZHST (50 ) , ZTST (50) , PH3T (50) , RT3T (5") , 

9 FLFP (50) , PER CEP (50) , PERLOS (5C) , ZBL (50 ,50) , RBI, (S"’ ,5:^) , 

1 THBL (50,50) ,TNBL (50 ,50) , TTBL ( so , BA) , t [ jl EL (5C , 50 ) , T H 2 PL ( ‘^0' , '^ " ) 

COMMON/SLCOM/ILS (5 0) , ITS (50) , ZSL {10O,5O) ,psi. (ICO ,Soj , MSL (1 0 ^ ^ 

1 WZSL (10G,50) , WESL (1QO ,5 j) , KMS L ( 1 00 , 5 0) , WTH3L ( 1 ''0 ,50 ) , 

2 ALPSL (1 00,50) ,BETSL (1O0 ,'^C) , WSL ( KC ,S0) , WWCR3L ( 10 0 , 50) , 

3 CIIRVSL ( 1 OC , 50) , WLSSL (100 , 50) , WT3SL (ICO ,50) 
COMHON/PLTCOM/ZLRNG,ZRRNG,RBRNG, RTRNG,ZHPLT (IOC) ,B!IPL'^ (10") , 

1 Z3PLT (100) , RSPLT (Ipo ) ,ZLPL'o ( 1 0 0 ) , PLPLT (1 C o) , ZTPLT ( 1C‘0) , 

2 RTPLT(IOO) 

DIMENSION TITLI (10) ,TITL2(3) ,'T'TTL3 (3) ,TITL4 ( 1 1 ) , TTT 1,5 ( 5) 

DATA TITLI/'STRE ' , ' AMLI ' , ' NE P ' , ' LOT S ’ , ' Cl $L ' , ' 2T N ' , ' MERI ' , ' PTON' 
1 , ' AL P' , ' LANE* / 

DATA TITL2/'Z D ' , ' IP EC ' , ' T ION* / 

DATA TITL3/'R D ' , ' I REC ' , ' T ION ' / 

DATA TITL4/'SUBS ' , ' ONIC , * ids* , 'OLUT* , ' TONS ' , 'C2IT ' , ' ER AT ' , ' I ON .S * 

1 , 'C1NO* , • . ' , ' XXXX'/ 

DATA TITL5/' TRAN • , ' SONI ' , * C$C1 * , ' SOLD* , *TTON '/ 

DATA SYM/'X'/ 

IF (IPLOT.LEd) RETURN 

IF ( (ITER/I PLOT) *TPLOT. N E . IT EP . AN D, I T EP . N E . 1 ) RETURN 

— PLOT THE ITERATION NUMBER 
CALL LRCHSZ (4) 

CALL LRGRID (1 , 1,0 .0,C . 0) 

CALL LRCNVT (ITER,1 ,TITL4 (11) ,1,4,C) 

IF (lEND.LE.O) CALL LR L EGN ( T ITL4 , 4 4 , C , 4 . 2 , 6 . 0 , 1 . 0) 

IF (lEND.GT.O) CALL LPLEGN (T TTL5 , 20 , , 4 . 2 , 5 . 5, 1 . 0 ) 

--PLOT BLADE GEOMETRY ANP STREAMLINES 

CALL LRMRGN (1 . 0, 1 .0 ,2 d , 1. 0 ) 

CALL LRANGE (ZLRNG, ZRRNG, RBPNG,RTRNG) 

CALL LPGHID (- 1 ,-1 , 1 . C , 1 d) 

CALL LRLEGN (TITLI, 40, 0,3.5, C. 7, 0.0) 

CALL LRCHSZ (2) 

CALL LRLEGN (TITL2,12,O,4.5,1d,0.C) 

CALL LRLEGN (TITL3, 12,1,0.4,4.5,0.0) 

CALL LRCHSZ (4) 

CALL LECORV (ZHPLT,RHPLT, 10 0 , 2 ,S YM, 0 . 0) 

CALL LFCDRV (ZSPLT,RSPLT,100 ,2,SYM,n.O) 

IF (MBI. EQ. 0) GO TO 5 

CALL LRCUBV (ZLP LT , R LPLT , 100 , 2 ,S Y M, ) 

CALL LPCURV (ZTPLT, RTPLT, 100 , 2 ,S YM, 0 . C) 

C--PLOT STREAMLINES 
5 EOP = C.O 

CALL ROTATE (- A NG ROT , ZS I , RS L , MM, NS L, 1C 0, 50 ,ZSL, FSL) 

DO 10 JS=1,NSL 
IF (JS.EQ.NSL) E0P=1.0 

10 CALL LPCURV (ZSL (1,JS) ,RSL(1 ,JS) ,MM,2,SYM,E0P) 

CALL LRCURV (ZSL,RSL,C , 1 ,SYH, 1 .0) 
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SUBROUTINE SVPLOT 


C 

C--SVPLOT PLOTS THE MEAN STREAM SURFACE AND BLADE SURFACE OUTPUT 
C--VELOCITIES ALONG ALL STREAMLINES 
C 

COMMON NREAD,NHR IT, ITER, TEND, NWRT1, NWPT2 , N WF T 3 , N HRTU , N HRT5 , N WPTe 
COMMON/INPUTT/GAM, AR , MS FI, OMEGA, FEDFAC,VELTOL, FNFW, DN '’W , MB I , MRO , 

1 MM, MHT, NBL,NHUB, N"" IP , NIK , NOUT , NBLPL , NPPP , NOST AT , NSL , NLOSS , 

2 LSFR,LTPL,LAMVT,LROT,LBLAD,L5TEAN, ANGRCT, inESH,ISLINE, 

3 1ST AT L, I PLOT, ISUPER , ITSON, TDEBUG , ZOMI N , Z CMPI , ZOMBO , ZOMOUT , 

4 ROMIN, ROMBT,RCMBO, ROMOUT ,ZHIN,7T IN,7,H0IIT,Z'^0UT, RUIN, RTIN, RHOU”, 

5 RTOUT, TITLE! (20) ,7HUP(5C) ,PUU3(S ;) ,ZTIP(EC) ,PTIP(Sv) ,SFIN('^‘) , 

6 RADTN(50) ,TIPr^0) ,PRlP(Sv.) ,LAMIN('^'') ,VTHIN(S^) ,3FOUT (S"') , 

7 RADOUT (50) , PROP (50) , LOGOUT (50) ,LAMOUT (5C) ,VTHOUT (50) , 

8 BETALE (50) ,BETATE (50) ,ZHST(5~) ,ZTST(5'') ,PUST(5'') ,R'^ST(5-) , 

9 FLFR (50) ,PERCRD (50) , PER LOS (50) ,Z 31. (50,55) , RBT, ( 50 , 5 ’i) , 

1 THDL(5C,50) ,TNBL(5C,50) , TTBL (50 ,50) ,TH1BT. (50,50) ,TH2BL (50 , 50 ) 

COHHON/SLCOM/TLS (50) , T TS (5 C ) , 7S L ( 1 0 0 , 5C ) , FS I ( 1 DO , *^0 ) , MSI, (1 0 0 ) , 

1 WZSL (100,5C) ,WF5L (1CC ,50) ,WMSL (10r-,5n) ,hthsl (IC'i,'^'') , 

2 ALPSL (100,50) ,BETSI (100,5^) , WSL ( 1 CO , 5'') , FRCRSL (1 , 50) , 

3 CUfiVSL ( 1 CO , 50) , HLSSL (100 ,5 ') , MTS g L ( 1 C " , 5 " ) 

DIMENSION TITLi ( 12) ,TITL2 (7) , TITL3 ( 1 4) , TITL4 ( 1 5) , 

1 TITL5 (1 6) ,TITl5 (6) ,TITL7 (2) 

REAL HSL,LRNG 

DATA TITL1/'MEEI','DION' ,'AL A','ND S • , ' URF A ' , ' CE$C ’ , • 1 $0 1 ' , ' «FLA ' 

1,’TIVE',' VEL' ,'OCIT', 'IFS '/ 

DATA TITl'2/' ST' , 'REAM* LINE' , ' NO. ' , ' XXXX ' , ' ','U= ','XXXX' 

1 , 'XXXX'/ 

DATA TITL3/'MEPI ' , ' DION ' , ' AL P ' , ' EL AT ' , * I VE ' , ' V^LO ' , • C ITI ’ , ' E.S $C ■ 
1 , ' 1 $R6* , 'FOR *,'ALL ' , ' STRE ' , ' AMLI ' , ' NES •/ 

DATA TITL4/' SUCT' , ' ION ' , ' S U PF • , ' AC E ' , ' PEL A ' , ' TIVE ' , • V"L','nciT' 
1 , ' IES$' , ' Cl $R' , ’ 8FOB ' , ' ALL',' STB ' , ' E A ML ' , ' I N^S • / 

DATA TITL5/'PRES', 'SURE' ,' SU P • , ' F A CE' , ' REI ' , ' ATTV » , • E VE ' , ' T OCI ' 
1 , 'TIES' , '$C1$' ,' R8FO' ,' R AL','L ST REAM LINE ',' S •/ 

DATA TITL6/' ME ' , ' R ID I ' , ' ON AL' , ' CO' , ' ORDI ' , ' N ATE ' / 

DATA TITL7/'VEL0' , 'CITY'/ 

DATA SYH/'X'/ 

IF (IPLOT.LE.O) RETURN 

IF ( (ITEF/IPLOT) ♦IPLOT. NE. ITER. AND. ITER. NE. 1) RETURN 

--COMPUTE RANGE OF PLOTS, AND SET UP FOR PLOTTING 

LRNG = HSL (1,1) 

BRNG = HSL(1,1) 

BBNG = 1C00. 

TRNG = 0. 

DO 30 JS=1,NSL 

LRNG = AMIN1 (LRNG,MSL (1 , JS) ) 

RRNG = AMAX1 (RENG,MSL(MM,JS) ) 

IF (HBI.EQ.O) GO TO 15 
ILSJ = ILS(JS) 
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irsj = TTS(JS) 

DO 1C IS=ILSJ,TTSJ 

DKKG = A.'IINI (yliNG , ML'^SL (I'^ , J.C) ) 

PRNG = AfINl (tiPNG,MT?;SL {TG, J3) ) 

TRNG = AMAXI (TKNO,WLGSI. (n, JS) ) 

1:' TRNG = AMAX 1 ( rPNG,WTS:1L (TG, ,T^) ) 

15 DO ?.r TS = 1,'1M 

DRhG = AMIN 1 ( QPNG, RSL (IS,.TC) ) 

2C THNG = AMAXi (TRNG, WSI (IC, JS) ) 

3C CONTINUE 

CALL LRMPGN (1 . ^ , 1 1 . r, ) 

CALL L'JANGE (L PNG, Ri^NG, PF NG, ?F NG) 

CALL LRGPID ( 1 , 1 , 1 1 . C , 1 1 . ^ ) 

C 

C--PLOT VELOCITIES ON EACH STREAMLTN'^ 

C 

DO «C JS=1,NSL 
FOP = . C 

IF (MBI.EQ.P) EOP=1.0 
CALL LECH5Z (4) 

IF (JS.EQ.1) CALL LR LFG N (T I 1 , 4 1 , ^ , 2 . S , . 7 , r . A) 

CALL LPCHSZ(.l) 

CALL LPCNVT (JS, 1 ,TTTL2 (5) ,1 ,4,') 

CALL LPCNVT (FL FP (OG) , 3, TI'"L2 ( H) , 3 , H , 4) 

CALL LRLEGN (T I T L2 , 3 6 , 2 . 2 , 4 . 5 , 0 . -• ) 

CAL], LPCHSZ(2) 

CALL LPLFGN (TITLE , 24 , ■ , 3.4 , 1 . 3, - . ') 

CALL LRLEGN{TITL7,R, 1,3.2,4.9,r. ■) 

CALL LRCHSZ(4) 

CALL LPCURV (MSL ( 1 , J S ) , W SL ( 1 , JS) , nn , ? , S YM , I , H 
CALL LPCURV (MSL(1,JS) ,MSL(1 ,.1'^) , M M , 4 , G Y M , SOP) 

IF (MBI.EQ.O) GO TO 4C 
ILSJ = TLS(JS) 

HOLD = ITS (JS) -IIS (JS) + 1 

CALL LPCURV (M SL ( I L S J , J S ) , WL SS L ( I I.S J , JS) , MDL D , 2 , S Y M , F . ) 
CALL LPCURV (MSL (ILSJ, JS) ,WLSSL (ILSJ, JS) , HBLD, 4, SYM,f. '■) 
CALL LRCURV (M S L ( IL3 J , J S ) , WT SS L ( TL S J , JS) , MBL D , 2 , S YM , F . ^ ) 
CALL LRCURV (MSL (ILSJ ,JS) ,»T S3 L ( I LS J , JS) , MOLD , 4 , '^YY , i . ^ ) 
40 CONTINUE 
C 

C--PLOT MERIDIONAL VELOCITIES FOR ALL STREAMLINES 
C 

CALL LEGRTD (3,3,11.0,11 .0) 

CALL LRLEGN (TITL3,56,0 , 1 .7, C . 7,^ .0) 

CALL LRCHSZ (2) 

CALL LRLEGN (TITL6,24,F, 3.4, 1.3, 0.0) 

CALL LRLFGN (TI TL7 , 8 , 1 , 0 . 2 , 4 . 9 , 0 . ' ) 

CALL LRCHSZ (4) 

EOP = 0.0 

DO 50 JS=1,NSL 

IF (JS.EQ.NSL) EOP=1.S 

50 CALL LPCURV (MSL(1,JS) ,WSL(1,JS) ,MH,2,SYH,EOP) 

CALL LRCHSZ (0) 

IF (MBT.EQ.O) PE'^URN 
C 

C--PLOT SUCTION SURFACE VELOCITIES FOR ALL STREAMLINES 
C 

CALL LRCHSZ (4) 

CALL LRLEGN (TITL4, 60,0,1 .2,0. 7,0.0) 

CALL LRCHSZ (2) 
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CM,L L' LI'XN (I ITI.f- , 24 , ' , .i . 4 , 1 . ;i , C . - ) 

CALL I.f-LFCN("'T'^L7,.^, 1,7.2, 4.0,2.') 

CALL Lr(C!'5Z(4) 

EOP = r . r 

DO 6" J.S=1,N5L 

IF (JS.EO.NSL) F0P=1.'' 

ILSJ = TLS(JS) 

MOLD = ITS (JS) -ILS (JS) ♦ 1 

C, CAI.L LPC DP V (MS T, (ILSJ , JS) , 'rfLSS L (T LS J , JS) , MOLD, ?, SYM, EOP) 

C--ir'LOT !>RESSUFE SHRI’ACr VELOCTTTES FOR ALL STRt^'AMI TNE'^ 

C 

CALL LLLEGN (TITLS ,24 , ■ , 1 .2 ,0 . 7, ' . r.) 

CAL', Lr.CKSZ(2) 

i, LF LFGN I TLb , 24 , 3 . 4 , 1 . J , -» . - ) 

CALL LPLFGNI (TITL7, s , 1 , , 2, 4 . q, ' . ■') 

CALL LPC[iSZ(4) 

"OP = r.r 

DO 7 0 05 = 1, NS I. 

TP (JS.EQ.NSL) E0P=1.-A 
IL50 = TLS(OS) 

M3LD = ITS (JS) -ILS (OS) 4 1 

7' CALL LKCDRV (MSL (ILSJ, JS) , WTSS L ( I LS J , OS ) , MBLD, 2,5Y,M, EOP) 
CALL LRCUIiV (ZSL,PSL,C, 1,SYM,1 
CALL LRCHSZ(O) 

RE'^URN 

END 


S'lnpODTINE TVELCY 
C 

C — TVELCY CALCULATES TEE FULL MASSFLOW, 
--tiSINC VELOCITY GRADIENT FQUATIONS 


TRAS30NTC SOLUTION 


COMMON NREAD,NWRIT,ITER,rEND,NWPT1,NWR"’2,NHFT3,NWP'^4,NWRTE,NWr'T6 
C0hM0N/INPUT7’/GAM,AR,MSFl,0MEGA,PEDFAC,VELT0L,FNEW,DNEW,MBI,MP0, 

1 MM , MH7- ^ NPL, NHUD , NTIP , NIN , NOU"' , KB LPL, NPPP, MOST AT , NS L , NLOS S , 

2 L"pl, LAMVT,LR0T,LBLAD,LETEAN, ANGROT, IHESH,ISLTN5, 

J ISTATL,IPLOT,TSUPFr(,ITSON,IDEBUG,ZOMIN,ZOHBT,70MDO,ZOMOUT, 

4 70.MIN,ROMBT,RGM30,ROMOOT,7F1TN,ZTIN,ZHOUT,ZTOnT,RHIN,RTTN, RHOUT , 

5 PTOUT , TI TLEI (2C ) , ZUUP (S^ ) , RHUP (S 7) , ZTIP C^C) , RTIP CAP) ,SFTN (57 ) ^ 

6 oadIN (55) (5^) ,PPTP (S2) ,I,AHN (5 5) , VTHIN (5P) ,SFOUT (5?) , 

7 kADOUT (5C) , prop (55) , T CSOUT (5C ) ,LAMOTIT (5P) , VTHOOT (5 5 ) , 

0 B ETA LL (5 0) , BET ATE (5 5) ,ZHST (5" ) ,ZTST (50) , PHST (5C) ,p5'ST(5P) , 

9 FLFR(57) ,PEPCRD(57) ,PERLOS(50) ,ZBI.(57,50) ,RBL(57,55) , 

1 THBL (50,50) ,TNBL (5C ,-A5) ,ttbL (55 ,50) ,TH1BL (5P,5C) ,TH2BT. ( 57, sp) 
COMMON/CALCON/MMM 1 , M HT P 1 , CP , EXPO N , TGROG , PITCH , RLER , PLET , RT EH , FT FT , 

1 ZLE(5r) ,RLE(5C) ,ZTE(5C) ,RTE(5C) ,ZLE0B(1C1) ,RLE0M(151) , 

2 SLEOM(1C1),THLEOH(101) ,ZTF0M (111) , RTEOM ( 171) , STEOM (101) , 

3 thtEOM (101) ,ILE(1C1) , IT £(101) ,ZOM(150,iri),POM(10(',101) , 

4 50M (1 70 , 10 1 ) , TOM (100 , 17 1 ) , PTH (100 , IQ 1) ,DTHDS ( ICO , 10 1) , 

5 DTHDT (1 CO, 1 0 1 ) , PLOS5 ( 177 , 15 1 ) ^CPHI ( 1(A7, 10 1) , SPHI (ICO , 1 .7 1) 
COMMON/VARCCM/A (4 , ICO , 1 C 1) , UOM ( 1 00 , 1 C 1 ) , K (If C , 1C 1 ) , RHO ( 100 , 1" 1 ) , 

1 WSUBS (ICC, 1C1) , WSOBT (100 ,10 1) , HS OBZ ( 1 00 , 1 0 1) , HSUBR ( ICO, 17 1) , 

2 NSUBM (175,151) , WTH ( 175, 1 5 1) , VTH ( 10,7, 171) , H (107, Id) , 

3 ALPHA (177,151) ,bfta (ICC , 1C 1 ) , W WC S ( 1 C 0 , 1 7 1 ) ,cHRV ( 107, 171 ) , 
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U WLSUEP(100, 101) ,WT:'nPF(1C'" , 101) , CAMP ( 1 0^ , 1 0 1 ) , S A MP ( 1 f 0 , 10 1) , 

5 RHOAV (IOC, 10 1) ,nELEHO (100 , 101) , FT (ion. Id) , ( 1 00 , 101 ) , 

6 XTOM (100,101) ,ZETnM (1 "‘0,1^1) , DLDTI (100, 10 1 ) 

DI?1ENSION D'rfilDS ( 100) , DWTOS ( "'CO) ,TVSRT (Id) , 

1 WMVEPT (101) , HTV2BT (i : 1) ,TWLMP (101) ,CPTIP (Id) ,FCARn (Id) , 

2 DHMVER (1C1) ,DWTVEP (I'll) , ATVEL (10 1) ,BTVEL(1d) ,CTVEL(1d) , 

3 DTVEL (Id) ,ETVEL (1 d) ,PTVFL (101) , LAMBDA (101) ,LAH3DO(1'^1), 

4 TIPT(101),RHOIP(1P1) ,UNEW(101),DMMDM(1CC,1d), DWTDM ( 10'' , 101) , 

5 DHHDT (100, Id) , DWTOT ( 10P , 101) 

REAL MSFL,LA'1DDA,LAMnDO, I.AMOUT,LAMTN,LA«DAF,MAXFLO, MIN FLO 
LOGICAL REPEAT 

--RESTORE FULL MASS FLOW VALUES, AND REINITIALIZE LAMDAF AND RVTHTA 

I5ND = IEND+1 
JZ = 1 

IF (I5DPER. EQ. 2) JZ=2 
IF (ISUPER . EQ. 2) GO TO 55 
WRITE (NWPIT, 1 ^40) 

OMEGA = OMEGA/REDFAC 
H3FL = MSFL/REDFAC 
DO 10 J =1 , NIN 
LAMIN(J) = LAMIN (J) /REDFAC 
10 VTHIN(J) = VTHIN (J) /REDFAC 
DO 20 J =1,NOUT 
LAMOUT(J) = LAMOU’^ (J) /REDFAC 
20 VTHOUT(J) = VinODT (J) /REDFAC 
CALL LAMNIT 

IF (MBI.NE.C) CALL RVTNTT 
C 

C--CALCULATE PARTIALS WITH RESPECT TO T OF WSUBM AND WTH 
C 

DO 40 1=1, MM 

DO 3C J=1,HHTP1 

DFDM(I,J) = DFDM (I, J) /REDFAC 

TVERT (J) = TOM (I, J) 

WHVERT(J) = HSDBM(I,J) 

30 WTVERT(J) = HTH(I,J) 

CALL SLOPES (T VERT , WMVERT ,MHTP1 , DWMV ER) 

CALL SLOPES (T VERT, WTVERT,MHTP1,DWTVER) 

DO 40 J=1,MHTP1 
DWHDT(T,J) = DWMVER(J) 

4C DWTDT(I,J) = DHTVER(J) 

C 

C--CALCOLATE PARTIALS WITH RESPECT TO S OF WSUBM AND WTH, AND THEN 
C — CALCULATE PARTIALS WITH RESPECT TO M OF WSUBM AND WTH 
C 

DO 50 J=1,MHTP1 

CALL SLOPES (SOM (1 , J) , WSUBM (1 , J) , MM, DWMDS) 

CALL SLOPES (SOM (1, J) ,WTH (1, J) ,MH,DWTDS) 

DO 50 1=1, MM 

DWMDM(I,J) = (DWMDS (I) +CAMP (T,J) <-DWMDT(I,J) *SAMP(I,J) ) /REDFAC 
5C DWTDM(I,J) = (DWTDS (I) *CAMP (I,J) +DWTDT (I,J) *SAMP (I, J) )/REDFAC 
RTOLER = 1. E-4 
MEAN = MHT/2+1 
55 CHLIM = HSFl*FLOAT (NBL) 

UNEW (1) = 0. 

C 

C--INITIALI2E VARIABLES FOR LOOP ON VERTICAL MESH LINES 


non 


c 


LINC = 0 
ICOONT = 0 
IREVPS = 0 
ITEMIN = nn 
ITEMP = SM 
IMAX = 0 
I SCR = 1 
I = C 


C--SCI.VE VELOCITY GHADIBHT EQUATION ON EACH VERTICAL NESH LINE 
C 

C--BFGINNING OF LOOP ON VERTICAL MESH LIMES 
60 I = I+INCR 

IF (I.GT.MM) GO TO 290 

HHUD = W (I, 1) /REDFAC 

UELMAX = W (I,MEAN) /20./PEDFAC 

WHAX = WHUB 

WMIN = WHUB 

MAXFLO = -1.EK 

niNFLO = 1.E1C 

NADD = 0 

NSUB = 0 

NREP = 0 

BCOUNT = 0 


C 

C--CALCULATB COEFFICIENTS A, B, AND D FOR THE VELOCITY GRADIENT EQUATION 
C — INITIALIZE COEFFICIENT C TO ZERO 
C 


DO 80 J=1,«HTP1 

LAMBDA(J) = L AHDAF (UOH (I,J) , I,.I) 

IF (MBI.NE.C) LAM3DC(0) = R VTHT A (UOM (T, J) , I , J) 

TIPT (J) = TIPF (UOH (I, J) ) 

RHOTP(J) = RROIPF (UOM (I, J) ) * (1. -PLOSS (I, J) ) 

BTVEL(J) = 0. 

CTVEL(J) = 0. 

DTVEL (J) = 0. 

IF (I. LT. ILE (J) .OR. I. GT. ITE (J) ) GO TO 70 
SAL = SIN (ALPHA (I, J) ) 

SBETA = SIN (BETA (I, J) ) 

CBETA = COS (BETA (I ,J) ) 

ATVEL(J) = CBETA**2*CAMP (I, J) fCORV (I, J) -SBETA+*2^CPHI (I, J) / 
IROM (I,J)+DTHDT(I,J) *S AL*CBETA*SBET A 
BTVEL(J) = CBETA*SAMP (I,J) ♦DWMDM (I, J) -2.»OMEGA*SBETA*CPHI (I, J) 
1+ROM (I, J) *DTHDT (I, J) *CBETA* (DHTDH(I,J)+2. *OMEGA*SAL) 

GO TO 72 

70 ATVEL(J) = CAMP(I,J) *CURV(I,J) 

DTVBL(J) = DHMDH (I, J) *SAMP (I, J) 


-CORRECT FLOW ANGLES AT LEADING AND TRAILING EDGES, ANALOGOUS TO TNDEV 

72 IF (INCR.LT.O) GO TO 75 

IF (I.EQ.ILE(J) ) CALL LINDV(J, LINC, ICOUNT) 

IF (LINC.NE.1) GO TO 80 

IHAX = I 

IREVRS = 1 

ICOUNT = 0 

GO TO 80 

75 IF (I.EQ.ITE(J) ) CALL TINDV (ITEMP,J , ICOUNT) 
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C 

C- 

C- 

C 

c 

c- 

c 

c- 

c- 


c 

c- 


ITEMIN = ?1INC (ITEP^IN^TTHMP) 

80 CONTINHE 

IF (IINC.BQ.1) TNCR=-1 

'JO DO 120 J=1,MHTP1 

0!1R2 = OMSGA*ROM (I, J) **2 

" 2.*OMEOA*LA1BDA(J)-OHEGA*0«R2 

CPTIP (J) = 2. *CP*TIPT (J) 

IF{I ,GE. ILE (J) ) GO TO 100 
WHIRL = LAMBDA (J) 

GO TO 110 

10O IFd.LE.ITE(J) ) GO TO 120 
WHIRL = LAMBDO (J) 

12C FC»3I,(J, = 

-C»LCD,..TE COEFFICIENTS E ANO F EOF THE .ELOCITY OH.OIENT ECATIOH 

TPP = TIPT(1) -TWLMR (1)/2./CP 
IF (-PP.lt. 0.) GO TO 3C0 

Do'u.; 

DTIP = TIPT (J) -TIPT (J-1) 

DLAM = lambda (J) -LAMBDA (J-1 ) 

TPPN = TIPT (J) -TWLMR (J) /2./CP 
TP (TPPN.LT.O.) go TO 300 

S?Pp"'/tp??-^P?’ f-') * (TPPN/TIPT (J) ) •* {GAM*EXPOW) 

DPREL ^ PRELN-PREL 

iydpbel'’'’’ " ‘^'’*“^'^'''“"''=**‘>I'*"-cp*i>tpp*ar/(peei».peei,.,tpp».tpp) 

" °"‘'''<"''''*^'’'’)-'>»/CP.DPHEL/,ppEI,».ppFi, 

130 PREL = PRELN 

:-‘?or.” 

REPEAT = .FALSE. 

140^ind'^-°i iteration PROCFDHRB 

INNER ITERATION PROCEDURE 
gradient SOLUTION AT ffUB 
150 W (I, 1) = WHUB 

NCOUNT = NCOUNT+1 

•CALCULATE RVA AT THE HUB 
WSQ = HHUB**2 

TTIP = I • ~ ( WSQ + TWLMR ( 1) ) /CPTIP ( 1 1 
IF (TTIP.LT.O.) go Tc5 220 ' 

RHO(I,1) = PHOIP (1) ♦TTIP**EXPON 
IP (I*GE.ILE(1) .AND.I.LE.ITE(I)) goto 160 
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C--PVA OUTSIDE OF THE ELADE 
WHIRL = LAMBDA (1) 

IF (I.GT. ITE(1) ) WHIRL = LAMDDO(I) 

SBETA = (WHIRL/ROM (I , 1) -CHFGA*ROH (I, 1) ) /WHUP 
IF(ABS(SBETA) .GT.1.) GO TO 21C 
BETA (1,1) = ARSIH{SBETA) 

CBETA = COS (BETA (1,1) ) 

PVA = BHO (I, 1) *HHUB*CBETA*RCAPB (1) 

GO TO 170 

C--PVA INSIDE OF THE BLADE 

16C HLSRF = HH0B+DFDM(T,1)/2. 

WSQ = WLSRF**2 

TTIP = 1 (WSQ + THLMR (1) ) /CPTIP(I) 

IF (TTIP.LT.O.) TTIP=0. 

BHOL = RHOIP (1 ) *TTIP**EXPON 
HTSRF = WHUB-DFDM (I, 1) /2. 

WSQ = WTSRF**2 

TTIP = 1 (WSQ^TWLMP (1) )/CPTIP(1) 

IF (TTIP.LT.O.) TTIP=0. 

PHOT = RHOIP (1) *TTIP**EXPON 

RHOWAV = (RHnL*WLSPF + 4.*RHO (1,1) *HHUB+RHOT*WTSFF) /6. 

CBETA = COS (BETA (1,1)) 

RVA = BHOWAV*CDETA*RCARB (1) 

--CONTINUE VELOCITY GRADIENT SOLUTION UP VERTICAL MESH LINE FROM HUB 
--TO SHROUD 

170 DO 200 J=1,MHT 

DELTA = TOM (I, J+1) -tom (I,J) 

WAS = W (I, J) ♦ (ATVEL (J) * W (I, J) +BTVEL (J) +CTVEL (J)/H (I ,J) ♦CBETA* 
IDTVEL(J) ) *DELTA*ETVEL (J)/W (I, J) +FTVEL(J) *W (I,J) 

--CALCULATE RVAS AT POSITION J+ 1 ON VERTICAL MESH LINE 
IF (1. G£. ILE(J + 1) . AND. T.LE. ITE(J*1) ) GO TO 180 
C — RVAS OUTSIDE OF THE BLADE 
WHIRL = LAMBDA (J + 1) 

IF (I.GT.IIE(J*1)) WHIRL = LAMBDO(J+1) 

WTHETA = (WHIRL/ROM (I, J+1) -OMEGA*ROM (I, J*1) ) 

SBETA = WTHETA/WAS 

IF(ABS (SBETA) .GT.1.) GO TO 21'" 

BETA (I, J + 1) = ARSIN(SBETA) 

180 CBETA = COS (BETA (I, J + 1) ) 

WASS = W(I,J) + (ATVEL(J + 1)*WAS + BTVEL(J+1)+CTVEL(J + 1)/WAS + CBETA* 

1 DTVEL (J + 1) ) *DELTA + ETVEL (J) /WAS+FTVEL (J) *WAS 
W(I,J+1) = (WAS + WASS) /2, 

WSQ = W(I,J+1)**2 

TTIP = 1.-(HSQ+THLMP (J+1))/CFTIP(J+1) 

IF(TTIP.LT.O.) GO TO 220 

RHO(I,J+1) = RHOIP (J+1) *TTIP**EXPON 

IF (I .GE.ILE (J + 1) . AND.! . LE. ITE (J+1) ) GO TO 190 

SBETA = HTHETA/W (I, J+1 ) 

IF (ABS (SBETA) .GT. 1 . ) GO TO 210 
BETA (I, J + 1) = ARSIN(SBETA) 

CBETA = COS (BETA (I, J + 1) ) 

RVAS = RHO(I,J+1)*W(I,J+1)*CBETA*RCARB(J+1) 

GO TO 195 • 

C--BVAS INSIDE OF THE BLADE 

190 WLSPF = W (I,J + 1) +DFDM (I, J+1) /2. 

WSQ = WLSRF**2 

TTIP = 1 . - (WSQ + TWLMR (J + 1) ) /CPTIP (J+1) 


174 


IF (TTIP.LT.O.) TTIP=0. 

RHOL = BHOIP (J+1 ) ♦TTIP++EXPON 
WTSRF = W (I,J+1) -DFDH(I, J+1)/2. 

WSQ = WTSRF**2 ’ 

TTIP = 1.-(HSQ + TWL11P (J+1))/CPTTP(J4-T) 

IF (TTIP.LT.O.) TTIP=0. 

RHOT = EHOIP(J+1) •TTIP**EXPON 

EEIOHAV = (RHOL*WlSRF + 4. *RHO {I,JtT) *W (I, J4-1) +RHOT*WTSRF)/6. 

CBETA = COS (BETA (I,J>1) ) 

RVAS = RHOWAV*CBETA*RCARP(J+1) 

C 

C--TNCEEMENT THE MASSFIOW 

195 UNErf(J + 1) = (RVA + RVAS) +DELTA/2. ♦tlNEW (J) 

200 PVA = RVAS 
C 

C--STORE 1AX AND MIN VALUES FOR WHUB AND INTEGRATED WASSFLOH 
C 

MAXFLO = AMAX1 (DNFH (HHTP1) , HAXFLO) 

MINFLO = AMIN1 (UNEW (MHTPI) , HINFLO) 

HMAX = AHAX1 (HHUB, WMAX) 

WHIN = AHIN1 (WHUB, WHIN) .. . 

C 

C--CHECK CONTINUITY AND ESTIMATE NEW VALUE FOP H AT THE HUB 
C 

IF(IND.GE.6.AND. AB.S (MSPL-nNEW (MHTPl ) ) . LE. HSFL*bTOLEP) GO TO 250 
CALL CONTIN (WHnB,IJNEW(MHTPl) , IND , JZ , HSFL, DELM AX) 

IF (IND. LT. 10) GO TO 150 
C 

C — END OF INNER ITERATION PROCEDURE 
C 

C — IND=1C INDICATES CHOKED FLOW 
IF(IND.EQ. 10) GO TO 250 

C--IND=11 INDICATES NO SOLUTION FOUND IN TOO ITERATIONS 
GO TO 230 
C 

C--CHANGE WHUB FOR RESTART. VELOCITIES TOO SHALL. SBETA.GT^I.O 
C ■ 

210 WHUB = WHUB+. 45*DELMAX 
NADD = NADD+1 

IF (NCOONT. LT. 1000) GO TO 140 
GO TO 230 
C 

C — CHANGE WHUB FOR RESTART. VELOCITIES TOO BIG. TEMPERATURE NEGATIVE 
C 

220 WHUB = WHUB-. 45*DELHAX 
NSUB = NSUB+1 

IF (NCOUNT. LT. 1000) GO TO 140 
C 

C--NO SOLUTION CAN BE FOUND. PRINT HESH OUTPUT ONLY, AND 
C--OHIT STREAMLINE AND STATION LINE OUTPUT' 

C 

230 IMESH = 1 
ISLINE = 0 
ISTATL = 0 
DO 240 J=1, MHTPl 
240 UOM{I,J) = DOM (I, J)/MSFL 
GO TO 275 
C 

C--SOLUTION OBTAINED -- CHECK ACCURACY OF OOH 


nnono non non non nnn nnn 


250 NREP = NREP+1 

DO 260 J=2,«HTP1 
OTEMP = UNEW(J)/MSFL 

IF (ABS (UTEMP-UOH (I, J) ) . GT. RTOLER) REPEAT = .TRUE. 

260 UOM{I,J) = UTEHP 

--UPDATE PLOSS, TIPT, RHOIP, LAMBDA, AND LAMBDO 

CALL LOSSTV(I) 

DO 265 J=2,MHTP1 
UTEMP = UOM(T,J) 

TIPT(J) = TIPF (UTEMP) 

RHOIP(J) = RHOIPF (UTEMP) *(1 .-PLOSS (I, J) ) 

LAMBDA(J) = LAMDAF (UTEHP,I, J) 

265 IF (NBI.NE.C) LAMBDO(J) = R VTHTA (UTEMP, I, J) 

--SET «HUB, AND CHECK IF ANOTHER OUTER ITERATION IS NECESSARY 

HHUB = H (I, 1) 

1F(REPEAT. AND. NCOUNT.LT. 1000) GO TO 90 

--END OF OUTER ITERATION PROCEDURE 

IF(IND. NE. 10) GO TO 270 

CHFL = DOM (I, MHTPI ) *MSFL*FLOAT (NBL) 

CHLIM = AMIN1 (CHLIM,CHFL) 

WRITE (NHRIT, 1000) I, CHFL 
270 IF ( .NOT. REPEAT) GO TO 280 

--PRINT ERROR MESSAGES IF A SATISFACTORY SOLUTION CANNOT BE OBTAINED 

275 WRITE (NWRIT, 1010) I 

IF (IND.EQ.11) WRITE (NWRIT, 1050) 

IF (NCOUNT. GE . 1000) WRITE (NWRIT , 1 060 ) 

WRITE (NWRIT, 1070) MAXFLO,MINFLO, WMAX, WHIN 
NRES = NADD+NSUB+NREP 

IF (NRES.GT.O) WRITE (NWRIT, 10 00) NRES, NADD, NSDB, NREP 
WRITE (NWRIT, 1C90) 

--CHECK IF ALL VERTICAL MESH LINES HAVE BEEN DONE 

280 IP (INCR.GT.O) GO TO 60 
IF (IREVRS. EQ. 1) I=MM+1 
IREVRS = 0 

IF (I.GT. ITEHIN) GO TO 60 
IF (I.GT.IMAX+1) GO TO 60 
IF (ICOUNT. LT. MHTPI) GO TO 60 
--END OF LOOP ON VERTICAL MESH LINES 
290 CONTINUE 

--FINISHED VELOCITY GRADIENT SOLUTION ON EACH VERTICAL MESH LINE 
--CHECK CHOKE LIMIT 

OMSFL = MSFL+FLOAT (NBL) 

CHFRMS = CHLIM/OMSFL 

IP (CHLIM, GT. (0.9999*OMSFL) ) RETURN 
WRITE (NWRIT, 1030) CHFRMS, OMSFL, CHLIM 
RETURN 

300 WRITE(NWRIT,1020) 
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noon non 


STOP 


--FORHAT STATEMENTS 

1000 FORMAT (1HL,10X,68HMSFL EXCEEDS CHOKING HASS FLOB FOR VERTICAt ORT 
1HOGONAL MESH LINE I =, 13/1 2X , 1 9HCHO KING MASS FLOW =,G1S.6) 

1010 FORMAT (1HL,10X,85HA VELOCITY GRADIENT SOLUTION CANNOT BE OBTAINED 
1 FOB VERTICAL ORTHOGONAL MESH LINE I =, 1 3/1 2 X , S6HANT SUBSEQUENT OU 
2TPUT FOR THAT MESH LINE MAY BE IN ERROR) 

1020 FORMAT ( 1 HL , 1 OX , 60HTHE UPSTREAM INPUT WHIRL OR TANGENTIAL VELOCITY 
1 IS TOO LARGE) 

1030 FORMAT (1HL,10X,19HCHOKING MASSFLOW IS,F9.5,22H OF THE INPUT MASS? 
1LOW/12X, 16HINPUT MASSFLOW = , G1 3 . 5/1 2X, 26 HMINIMUH CHOKING MASSFLOW 
2=,G13.5) 

1040 FORMAT ( 1 H 1 //52X , 2 5 ( 1H*) /52 X ,25H* FULL MASSFLOW */42X, 

145 (1H*)/42X, 1H*, 12X, 19HTRANSONIC SOLUTION, 12X, 1H*/42X, 45H* BY VE 
2LOCITY GRADIENT approximate METHOD +/42X, 45 (1H*) /////) 

1050 FORMAT ( 1 0X ,5 1 HCONTI N COULD NOT FIND A SOLUTION IN 100 ITERATIONS, 
1) 

1060 FORMAT ( 1 0X , 8 1 HITER ATION PROCEDURE RAD TO BE RESTARTED TO AVOID NB 
1GATTVE TEMPERATURE OR VELOCITY/1 2X, 87HMAGNITUDE LESS THAN TANGENTI 
2AL VELOCITY, OR AFTER ADJUSTMENT OF STAGNATION TEMPER ATURE, / 1 2X , 29 
3HSTAGNATION DENSITY, OB WHI RL . /I OX , 84HRESTA RT OF ITERATION PROCEDU 
4RE (LOOP TO STATEMENT 9C) HAS ABORTED AFTER 1000 OR MOR E/1 2X , 4 1 HTO 
5TAL ITERATIONS (LOOP TO STATEMENT 150).) 

1070 FORMAT (1HL,10X,63HTHE MAXIMUM MASSFLOW FOR WHICH A SOLUTION COULD 
1 BE OBTAINED W AS , G1 6 . 7/ 1 0X , 63 HTHE MINIMUM MASSFLOW FOR WHICH A SOL 
20TION COULD BE OBTAINED WAS ,G16 . 7/1 0X,76HTHF MAXIMUM VALUE OP W AT 
3 THE HUB FOR WHICH A SOLUTION COULD BE OBTAINED WAS ,G 1 6 . 7/1 0 X, 76 HT 
4HE MINIMUM VALUE OF W AT THE HUB FOR WHICH A SOLUTION COULD BE OBT 
SAINED HAS,G16.7) 

1080 FORMAT (1HL,10X,37HTHE ITERATION PROCEDURE WAS RESTARTED, 15, 6H TIM 
1 ES/12X, 18HWHUB HAS INCREASED, 14 , 6H TIHES/12X, 18HWHUB HAS DECREASED 
2,14, 6H TIMBS/12X,53HBOUNDARY VALUES (TIPBDY, RHOIP, LAMBDA) WERE A 
3DJUSTED,I4,6H TIMES) 

1090 FORMAT (/I OX , 1 20 ( 1H*) ) 

END 


SUBROUTINE LINDV (JARG,LINC, ICOUNT) 

-LINDV AND TINDV CORRECT THE BETA FLOW ANGLES INTO THE 
-LEADING AND TRAILING EDGES RESPECTIVELY 

COMMON NREAD, NWRIT,ITER,IEND,NHRT1, NWRT2, NWRT3, NWRT4, N HRT5 , N HRT6 
COMHON/INPUTT/GAH, AR , MS FL, OMEGA , REDPAC, VELTOL, FNEW, DNEW , MBI , MBO, 

1 HH,MHT,NBL,NHUB,NTIP, NIN, NOOT,NBLPL, NPPP,NOSTAT, NSL,NLOSS, 

2 LSPR,LTPL,LAHVT,LROT,LBLAD,LETEAN,ANGROT, IMESH,IStINE, 

3 ISTATL,IPLOT, ISDPER,ITSON,IDEBDG,ZCMIN,ZOHBI,ZOMBO,ZOMOUT, 

4 ROHIN,ROMBI,ROMBO,ROHOUT,ZHIM,ZTIN,ZHOOT,ZTOOT,RHIN,RTIN,RHOUT, 

5 RTOOT,TITLEI (20) ,ZHUB (50) ,RHUB (50) ,ZTIP(50) ,RTIP (50) ,SFIN (50) , 

6 RADIN (50) ,TIP (50) ,PRIP(5P) ,LAHIN (50) ,VTRIN(50) ,SFOUT(50) , 

7 RADOOT(50) , PROP (50) , LOSOUT (50) ,LAMOOT(5P) ,VTHOOT(50) , 

8 BETALE (50) ,BETATE (50) ,ZHST (50) ,ZTST (50) , BHST (50) ,PTST(50) , 

9 FLFR(50) ,PERCRD(50) ,PERLOS(50) ,ZBL(50,50) ,RBL(50,50) , 

1 THBL (50,50) ,TNBL (50,50) ,TTBL(50,50) , TH 1 BL (50 , 50) ,TH2BL ( 50 , 50 ) 
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COMHOH/CALCCM/MMMI , MHTP1 ,CP,EXPON,TGROG,PITCH,PLEH,PLET,RTEH, RTET, 

1 ZLE (50) ,PLE (50) , ZTE (50) ,RTE(5 0) ,ZLEOM ( 1 0 1 ) , RLEOM (1 0 1 ) , 

2 SLEOM (1C1) ,THlEOM (101) ,ZTE0K (101) ,RTE0M(1d) ,STEOH (101) , 

3 THTEOH(ICI) ,ILE(101) , ITE(IOI) ,ZOf1 ( 1^0, 10 1 ) , ROI ( 1 C'!' , 1 C 1) , 

4 SOM (100,101) , TOM (ICO ,101) , RTH ( 10 , 10 1 ) , DT HDS ( 100 , 10 1 ) , 

5 DTHDT (IOC, 101) ,PLOSS (100, 101) ,CPHI (100, 10 1) ,SPHI (100,101) 
COMHON/VARCOM/A (4, 100 , 1 Cl) ,UOM(100, 101), K (100, 101), RHO (100,101) , 

1 WSOBS (IOC , 1C 1 ) ,HSriBT (100 ,1C1) ,HSrJBZ (100, 101) , WSOBR (100,101), 

2 WSUBM(100,1C1) ,WTH(100,101) , VTH ( 1 00 , 1 0 1 ) ,W( 10 n, 1 C 1 ) , 

3 ALPHA (100,101) ,BETA (100,101) , WWCR (100, 1C 1) ,CURV { 100, 101 ) , 

4 'rfLSOEF(100, 101) ,WTSURF(10C,101) , CAMP (100, 1^1) , SAMP (100, 10 1) , 

5 RHOAV (100, 101), DELPH 0(100, 101), FT(100, 101) , DFDM ( 100 , 1 0 1 ) , 

6 XIOM (100 , 1C1 ) ,ZETOM (100 , 1C 1) , DLDH (100, 10 1) 

COMMON/ROTATN/ZHROT (50) ,RHROT(5C) ,ZTROT(50) ,PTROT(50) , 

1 ZLEOMR (101) ,RLEOMR (101) , ZT EO M R ( 1 0 1 ) , RTKOMR (101) , 

2 ZBLROT (50, 50) ,RBLPOT ( 50 , 5C ) , ZOMPOT { 1 00 , 1 0 1 ) , ROM ROT (ICO, 101) 
COMMON/INDCOM/NBIPC, NPPC,ZPC (51 , 51) , RPC ( 5 1 , 51 ) , TTPC (5 1 , 5 1 ) , 

1 TMPC (51,51) ,DTHDZ (51 , “^1) , DTHD R (5 1 , 5 1 ) ,BTHLB(10 1) ,BTHTE( 101) , 

2 BTBELE(ICI) , BTBFTE (1C 1) 

DIMENSION BLTNC (101) , OB INC (10 1) , BTBLLE (10 1) , BLDEV ( 10 1 ) , DBD EV (10 1 ) , 
1 BTBLTE(IOI) 

REAL LAMDAF 

--LINDV CORRECTS THE BETA FLOS ANGLES INTO THE LEADING EDGE 

II = 1 
JJ = 1 
J = JARG 

ICOHNT = ICOHNT+1 
DEGRAD = 100. /3. 1415927 

--CALCULATE BLADE MEAN CAMBER ANGLE AT LEADING EDGE 
I = ILE (J) -1 

ALPHLE = ALPHA (T , J) + (5 LECM ( J) -S OM (I , J) ) + (ALPHA (1*1, J) - ALPHA (T, J) ) / 
1 (SOM (1 + 1 ,J) -SOM (I, J) ) 

CALL LININT (Z PC , RPC , DT HDZ, N PPC , NBLPC, 51 , 5 1 , ZLEOMR { J) ,RLEOMR(J) , 
1DTDZLE,II, JJ) 

CALL LININT (Z PC, RPC, DTHDR, N PPC , N BLPC , 5 1 , 51 , ZLEOMR (J) ,RLEOMR (J) , 
1DTDRLE,IT, JJ) 

TANBBL = RLEOM (J) * (DTDRLE+SIN (ALPHLE) t-DTDZLE+COS (ALPHLE) ) 

BTBLLE(J) = ATAN (TANBBL) *DEGPAD 

-CALCULATE BLADE FLOW ANGLE AT LEADING EDGE, CORRECTED FOR BLOCKAGE 
EXFRAC = (SLEOM(J) -SOM (I,J) )/(SOM(T,J) -SOM(I-1,J) ) 

BETAFS = BETA (I, J) +EXFRAC* (BETA (I, J) -BETA (I- 1,J) ) 

RHOFS = RHO (I, J) +EXFRAC* (RHO (I, J) -RHO(I-1,J) ) 

HFS = H (I, J) +EXFRAC* (H (I,J) -W (1-1 , J) ) 

ULE = DOM (I, J) f EXFRAC* (OOM (I, J) -UOM (1-1 , J) ) 

THLMR = 2.*OHEGA*LAMDAF(DLE,ILE(J) ,J)-(CMFGA*RLEOM(J) ) **2 
TIPRIM = TIPF (ULE) 

CPTIP = 2.*CP*TIPRIM 
RHOTP = RHOIPF (ULE) 

CONST1 = TAN (BETAFS) /RHOFS*BTHLE (J) /PITCH 

CONST2 = (RHOFS*PITCH*WFS/BTHLE(J) ) **2/ (1.+ (TAN (BETAFS) )**2) 

FHOBFN = RHOFS 

TPP = TIPRIM-TWLMR/2 ./CP 

WTHETA = WFS*SIN (BETAFS) 

WHSON = SQRT (2 . *GAM*AR*TPP/ (GAM* 1 . ) - (G A M- 1 . ) / (G AM ♦ 1 . ) * WTHETA** 2) 
IF(MFS*COS (BETAFS) . GT. WMSON) GO TO 14 
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1C RHOBF = RHOBFS 

TANBBF = CONST1*RHOBF 

WSQBF = CONST2/RHOBP**2* (1. tTANBBF**2) 

TDFTIP = 1 . - (WSQBF+TWLHR)/CPTTP 
IF(TBFTIP. LT.O.) GO TO 16 
EH08FN = RHOIP*TBFTIP**EXPON 

IF (ABS (RHOBFN-RHOBF) /RHOBFN. GT. .COO 1) GOTO 10 
GO TO 18 

1 4 RHOBF = RHOBFN 

TBFTIP = (RH03F/RH0IP) ** (1 . /EXPON) 

WSQBF = (1 .-TBFTIP) *CPTIF-TBLHR 
RHSQBF = CONST2/ (WSQBF-CONST2*CONST1**2) 

IF (RHSQBF.lt. 0.) GO TO 16 
RHOBFN = SQRT (RHSQBF) 

IF (ABS (RHOBFN-PHOBP) /RHOBFN. GT. . 000 1) GO TO 14 
WRITE (NWRIT, 1060) J 
GO TO 18 

16 RHOBFN = PHOFS 

WRITE (NWRIT, 1070) J 
18 TANBBF = CONST1 ♦RHOBFN 
BETABF = ATAN (TANBBF) 

C 

C — CALCHtATE DISTANCE FOR BETA CORRECTION 

BLDCRD = (RLEOM (J) +RTEOM (J) ) /2. * (THTEOM (J) -THLEOM (J) ) 

BLDCRD = SQRT(BLDCRD**2*(STEOfl(J)-SLEOH(J))+^2) 

SLIDLE = BLDCP.D/PITCH/RLEOM (J) 

ISLEOH^JH (.5,AMAX1 (1./6.,(11 . -4. ♦SLIDLE) /18. ) ) ♦ (STEOM (J) - 

C 

C--CORRECT BETA FOR INCIDENCE NEAR THE LEADING EDGE, 

C--USING LINEAR CORRECTION FOR ANGLE 
I = ILE(J) 

20 SDI5T = SLEOH (J) +DISTLE-SOM (I , J) 

IF (SDIST.LE.O.) GO TO 30 

BETA^I.J) = beta (I, J) + (BETABF-BTBFLE (J) ) *SDTST/DISTLE 

GO TO 20 
C 

C— CALCULATE INCIDENCE ANGLES 

30 BLINC(J) = BETABF^DEGRAD-BTBLLE (J) 

UBINC(.7) = BETAFS^DEGR AD-BTBLLE (J) 

IF (ICOONT. EQ. MHTP1) LINC=1 
RETURN 
C 

C--TINDV CORRECTS THE BETA FLOW ANGLES INTO THE TRAILING EDGE 


ENTRY TINDV (I ARG, JARG,ICCUNT) 
J = JARG 

ICOUNT = ICODNT+1 


C--CALCULATE BLADE MEAN CAMBER ANGLE AT TRAILING EDGE 
T = ITE (J) +1 

1*(S0HU,J) -SCM*i-l'^Jn^^^^°”^'^’ -SOM(T,J)) ♦(ALPHA(I,J) -ALPHA ( I- 1 , J) ) / - 
(ZPC»RPC,DTHDZ,NPPC,NBLPC,51,51,ZTE0MR (J) ,RTE0MR(J) , 

(Z PC, RPC, DTHDR, N PPC, NBLPC , 5 1 , 5 1 , ZTEOMR (J) ,RTB0MR (J) , 
TANBBL = (U) * (DTDRTE*SIN (ALPHTE) •♦■DTDZTE*COS (ALPHTE) ) 
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BTBLTE(J) = ATAN (TANBBL) ♦DEGFAD 
C 

C--CALCULATE BLADE FLOS ANGLE AT TRAILING EDGE, COBPECTED FOR BLOCKAGE 
EXFRAC * (SOM (I, J) -STEOM(J) ) / {SOM { T ♦ 1 , J) -SOM (I,J) ) 

BBTAPS BETA (I, J) ^-EXFFAC^ (BETA (I, J) -BETA (1 + 1, J) ) 

RHOFS = RHO (I, J) ♦EXFRAC* (RHO (I, J) -RHO (1+1, J) ) 

WFS = W (I,J) +EXFRAC* (W (I,J) -W(I+1, J) ) 

UTE = OOM (I,J) +EXFRAC* (UCM (I, J) -UOM (1+1, J) ) 

PLOSTE - PLOSS (I,J) +EXFRAC* (PLOSS (I, J) -PLOSS (1+1 , J) ) 

TSLMR = 2.*OMEGA*LAMDAF (OTE, ITE (J) , J) - (CMEGA*RTEOM (J) ) **2 
TIPRIM = TIPF (UTE) 

CPTIP = 2,*CP*TIPRTM 

RHOIP = RHOIPP (OTE) ♦ (1 . -FLOSTE) 

CONST1 = TAN (BETAFS) /RHOFS*BTHTE(J) /PITCH 

CONST2 = (RHOFS* PITCH* WFS/BTHTE (J) ) **2/ (1 . ♦ (TAN (BETAFS) ) **2) 

RHOBFN = RHOFS 

TPP = TIPRIM-TWLMR/2,/CP 

STHETA = WFS*SIN (BETAFS) 

WHSOR = SQRT (2 . *GAM*AR*TPP/ (GAM+1 . ) - (GAM-1. ) / (GAM + 1 .) *STHETA**2) 
IF(HFS*COS (BETAFS) .GT.WMSON) GO TO 44 
40 RHOBF = RHOBFN 

TANBBF * CONST1*RHOBF 

WSQBF = CONST2/RHOBF**2* (1 . +TANBBF**2) 

TBFTIP 1 . - (HSQBF+T«LMR)/CPTTP 
IF(TBFTIP.LT.O,) GO TO 46 
RHOBPK s RHOIP*TBFTIP**EXPON 

IP (ABS(RHOBFN-RHOBF) /RHOBFN. GT. .0001) GO TO 40 
GO TO 48 

44 RHOBF ^ RHOBFN 

TBFTIP * (RROBF/RHOIP) ** (1./EXPON) 

HSQBF = (1 .-TBFTIP) *CPTIF-TSLMR 
RHSQBP = CONST2/ {WSQBF-CON5T2*CONST1**2) 

IF(RHSQBF*LT.O.) GO TO 46 
RHOBFN = SQRT(RHSQBF) 

IF(ABS{RHOBFN-RHOBF) /RHOBFN. GT. .0001) GO TO 44 
WRITE(NSRIT,1080) J 
GO TO 48 

46 RHOBFN = RHOFS 

WRITE (NWRIT,1090) J 
48 TANBBF = CONST 1*RHOBFN 
BETABF = ATAN (TANBBF) 

C 

C — CALCULATE DISTANCE FOR BETA CORRECTION 

BLDCRD * (RLEOM(J) +RTEOM(J) )/2.*(THTEOM(J)-THLEOM(J)) 

BLDCRD = SQRT(BLDCRD**2+(STEOM(J)-SLEOM(J))**2) 

SLIDTE = BLDCRD/PITCH/RTEOH (J) 

DISTTE = AMIN1 (.5,AHAX1 (1./6., (11.-4,*SLIDTE)/18.))♦(STEOM(J)- 

1SLEOM(J) ) 

C 

C — CORRECT BETA FOR DEVIATION NEAR THE TRAILING EDGE, 

C--OSING LINEAR CORRECTION FOR ANGLE 
I = ITB(J) 

50 SDIST * SOM (I,J) -STEOM(J)+DISTTE 
IP (SDIST. LE.O.) GO TO 60 

BETA (I, J) * BETA(I,J) + (BETABF-BTBFTE(J))*SDIST/DISTTE 
I = 1-1 
GO TO 50 
C 

C— CALCULATE DEVIATION ANGLES 
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60 BLDEV(J) = BETABF*DEGRAD-BTBLTE (J) 
OBDEV(J) = BETAFS*DEGRAD-BTBLTE (J) 
lARG = 1+1 
RETOBN 


-PINDV PRINTS THE INCIDENCE AND DEVIATION ANGLES 
ENTRY PINDV 

IF ( (LAHDAF {. 5,ILE (1) , 1 ) -RVTHTA (.5, ILE (1) , 1) ) .GT.O. ) GOTO 80 
DO 70 J=1,HHTP1 
BLINC(J) = -BLINC(J) 

DBINC(J) = -UBINC(J) 

BLDEV(J) = -BLDEV(J) 

70 UBDEV(J) = -UBDEV(J) 

80 WRITE (NHRT6, 1000) 

IF (ISDPER.LE. 1) WRITE (NHRT6, 1010) 

IF (IS0PER.EQ.2) WRITE (NHRT6, 1020) 

WRITE(NWRT6,1030) 

WRITE (NWRT6, 1040) {J , BLTNC (Jj , (7BINC (.1) , BTBLtE (J) , BLDEV (J) , 
lOBDEV(J) ,BTBLTE (J) ,J=1, HHTP1) 

WHITE (NWRT6,1050) 

RETORN 

-FORMAT STATEMENTS 

1000 FORMAT (1H1////44X,40 (1H*)/44X,40H*** INCIDENCE AND DEVIATION ANG 
1LES ***/ 49X,30 (1H*)//) 

010 FORMAT (/52X, 25 (1H*) /52X,25H* POLL HASSFLOW */4 2X , 4 5 (1 H*) / 

142X, 1H*,12X,19HTRANSONIC SOLDTTON, 12X, 1H*/‘*2X, 45H* BY VELOCITY G 
2PADIENT APPROXIMATE METHOD */35X, 59 (1H*) /35X,59H* ALL VELOCITIES 
3 SMALLER THAN CHOKING HASSFLOW SOLOTION */35X , 59 ( 1 H* ) ) 

1020 FORMAT (/52X, 25 (1H*) /52X,25H* FOIL HASSFLOW +/42X, 45 (1H*) / 

142X, 1H*, 12X, 19HTRANSONIC SOLOTION , 1 2X , 1 HV'^ZX , 45H* BY VELOCITY G 
2RADIENT APPROXIMATE METHOD */35X, 59 (1 H*) /35X, 59H* ALL VELOCITIES 
3 LARGER THAN CHOKING MASSFLOW SOLOTION V35X, 59 (1 H*) ) 

1030 FORMAT (//24X,10H* MESH * X , 9 HI NCI DENCE, 7X , 1 1 H BL ADE ANGLE, 2H *, 
18X,9HDEVIATION,7X,11HBLADE ANGLE, 2H */24X,10H* LINE *,3X, 
27HBL0CKED,3X, 9H0NBL0CKED,4X , 7HAT L . E . , 3X , 1H* , 3X, 7HBLOCKED, 3 X , 
39HONBLOCKED,4X,7HAT T.E. ,3X,1H*) 

( (24X, 1H*,2X, 13, 3X, 2 (1H*, 3 (F9.2,2X) , 3X) , 1H*) ) 

(1H1) 

(45HLSOPERSONIC CORRECTION - LEADING EDGE FOR J =,I3) 
(45HLNO DENSITY CORRECTION - LEADING EDGE FOB J =,I3) 
(46HLSDPERSONIC CORRECTION - TRAILING EDGE FOR J =,I3) 
(46HLNO DENSITY CORRECTION - TRAILING EDGE FOR J =,I3) 


040 FORMAT 
1050 FORMAT 
1060 FORMAT 
1070 FORMAT 
1080 FORMAT 
1090 FORMAT 
END 


FUNCTION LAMDAF(SF,I,J) 

-LAMDAF CALCULATES PREWHIRL, LAMBDA, AS A FUNCTION OF STREAM 
-FUNCTION UPSTREAM OF THE BLADE 

COMMON NREAD,NWRIT,ITER,IEND,NWRT1 , NWRT2,NHRT3,NHRT4,NWFT5,NWRT6 
COHMON/INPUTT/GAH, AR,MSFl,OMEGA, RED FAC, VELTOL, FNEW, DNEW , MBI , HBO, 

1 hh,mht,nbl,nhdb,ntip,nin,nout,nblpl, nppp, HOST at, HSL,NL0SS, 

2 lsfr,ltpl,lamvt,lrot,lblad,letean,angrot, imesh,isline. 


3 TSTATL,! PLOT , IS UPER , ITSOV, TDEBUO , ZOM IN, ZOMBI, ZO*! BO, ZOMO tIT, 

U ROMTN, ROHBI,ROMBO,ROMOUT,ZHIN,ZTIN,ZHOUT, ZTOtIT,RHIN,RTIN,RHOOT 

S RTOIIT,TITLEI (20) (SO) ,PHUB(5 0) ,ZTIP(50) , HTTP (50) ,SPIN(50) , 

b RADIN (50) ,TIP (50) ,PRIP(5C) ,LAMTN (50) ,VTHIN(50) ,SFOaT(50) , 

7 RADOOT(50),PRCP{50), LOSOtIT (5^) ,LAMOtIT(50) , VTHOUT (5") , 

3 DETALE(50) ,BETATE(50) ,ZHST(50) ,ZTST(50) ,PHST(50) ,ETST(50) , 

3 FLFR(50) ,PERCRD(50) , PERLOS (5'*l) ,ZBL(50,50) ,RBL(50,5C) , 

1 THBL(50,50),TNBL(5C,5 0) ,TTBL(50,50) , TH IBL (50 , 50 ) , TH2BL ( 50 , 50 ) 

COHMON/CALCON/HMM1 ,MHTP1 , CP , EXPO N , TGROG , PITCH , RLEH , RLET , RT EH, RT ET, 

1 ZLE(50) ,RLE (50) ,ZTE(50) ,RTE(50) ,ZLFOM (101) ,RLEOM(101) , 

2 SLEOH (101) , THLEOM (101) ,ZTEOM (101) ,RTEOM (101) ,STEOM (101) , 

3 THTEOM(ICI) ,TLE(101) ,ITE( 1C 1) , 7.0.1(100, 101 ),ROM (IOC, 101) , 

4 .SOM (1 00, 101) , TOM (100 , 1C1) ,BTH (10 0,10 1) ,DTHDS (100,101) , 

5 DTHDT (100, 101) ,PLOSS (100,101) ,CPHI (100, 10 1) ,SPHI (ICO , 10 1) 
COMMON/VARCOM/A (4, IOC, 101) ,UOM(1^C, 101) ,K(100,101) , RHO (100,101) , 

1 HS UBS (1 00, 1 01 ) , WSUBT ( 100 , 1C 1 ) , HS UBZ ( 1 CO , 1 0 1) , WSUBR ( 100, 101) , 

2 WSUBM (ICO, 101) , NTH ( ICO, 101) , VTH ( 1 00 , 1 0 1 ) , H ( 1 00 , 1 0 1 ) , 

3 ALPHA (100,101) ,BETA (ICO , 10 1) , HWCR ( 1 00 , 10 1 ) ,CURV ( 100 , 101 ) , 

4 WLSURP(100,10 1) ,HT.S0RF(10O,101) , CAMP (100, 101) ,SAMP(100, 101) , 

5 RHOAV (100, 101) ,DELRHO(100,101) ,FT{100,1C1) , DFDH ( 100 , 10 1 ) , 

6 XIOM (100,101) ,ZET0M (ICO, 10 1) , DLDU (100, 101) 

COHMON/ROTATN/ZHHOT (50) ,RHROT(50) ,ZTROT(50) ,RTROT(50) , 

1 ZLEOMR (1C1) ,RLEOMR (10 1) , ZT EOMF ( 1 0 1 ) , RTEOM R ( 10 1 ) , 

2 ZBLROT (50, 5 0) ,FBLROT (50, 50) , ZOHROT (100, 1C 1) ,ROHROT ( 100, 101) 
DIMENSION SLOPE (50) , EM (5 C) , AAA (50) ,BBB(50) ,RILOM (101) ,UILOM (101 ) 
REAL LAMDAF,LAMIN 

KK = 2 

IF(ABS(SF-SFTN (1)) .GT. TOLER) GO TO 10 
LAMDAF = LAMIN (1) 

IF (I .LT.ILE (J) ) DLDU (I, J) =SLOPE (1) 

RETURN 

10 TF(SF-SFIN (1) ) 20,20,30 

20 LAMDAF = L A MIN ( 1 ) + ( S F-SFIN ( 1 ) ) *SLOPE ( 1 ) 

IF (I.LT.ILE(J) ) DLDU(I,J)=SLOPE(1) 

RETURN 

30 IF (ABS (SF-SFIN (KK) ). GT. TOLER) GO TO 40 
LAMDAF = LAMIN(KK) 

IF (I. LT. ILE (J) ) DLDU (I , J) =SLOPE (KK) 

RETURN 

40 IF(SF-SFIN (KK) ) 70,70,50 

5C KK=KK+1 

IF(KK-NIN) 30,30,60 

6G LAMDAF = LAMIN (NIN) + (SF-SFIN (NIN) ) +SLOPE (NIN) 

IF (I.LT.ILE(J) ) DLDU (I , J) =SLOPE (NIN) 

RETURN 

70 SK = SFIN (KK) -SPIN (KK-1) 

LAMDAF = EM (KK - 1 ) * (S FIN (KK ) -SF) **3/6,/SK+EM (KK) ♦ (SF-SFIK (KK-1) ) **3 

1 /6./SK+ (LAMIN (KK)/SK-EM(KK)*SK/6.) ♦(SF-SFIN (KK-1) ) ♦ (LAMIN (KK-1) 

2 /SK-EM (KK-1) ♦SK/6.) * (SFIN (KK) -SF) 

IF (I.LT.ILE(J) ) DLDO(I,J)= -EM (KK- 1) ♦ (SFIN (KK) -SF) **2/2./SK+ 

1 EH (KK) ♦ (SFIN (KK-1) -SF) **2/2./SKt (LAMIN (KK) -LAMIN (KK-1)) /SK- 

2 (EM (KK) -EM (KK-1) ) *SK/6. 

RETURN 

ENTRY LAMNIT(NNN) 

IF (ITER.EQ.O) GO TO 100 
IF (LSFR. EQ.O. AND. LAHVT. EQ. 0) GO TO 100 
II = MBI 
JJ = 1 
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CAN = COS (ANGROT) 

SAN = SIN(ANGROT) 

ZHTNRO = ZHIN*CAN+RHIN*SAK 
RHINPO = RHIN*CAN-ZHIN*SAN 
ZTINRO = ZTTN*CAN+RTIN*SAN 
RTINHO = RTIN*CAN-ZTIN*3AN 
DO flC KK=1,MHTP1 
DIST = FLOAT (KK- 1) /FI.QAT (MHT) 

RTLOfl(KK) = RHIN+DIST* (RTTN-PHIN) 

ZIPOT = ZHINRO + DIST* (ZTINRO-ZHISRO) 

RIROT = RHINRO + DIST* (RTTNPO-PHINRO) 

8C CALI. LINTNT (Z0^1 ROT , ROHR OT, tlOM /MH , M HTP 1 , 1 00 , 10 1 , Z TROT , R TROT , 
1UILOM (KK) ,IT, JJ) 

IF (LSFR.EQ.O) CALL SPLI NT ( CJILOM , RI LCM, HHTP 1 , SFIN , N IN , R APT N , A A A , 
1BBB) 

IF (LSFR.EQ.1) CALL SPLI NT (R TLOM , til LOM, HHTP1 , R ADIN , NIN , TFT N . A A A . 
1BBB) 

IF (LSFP. EQ. 1 .OR.LAMVT. EQ.<') GO TO ICO 
DO 9C KK=1,NIN 

9G LAMIN(KK)= RADIN (KK) *VTHIN (KK) 

100 CALL SPLINE {SFTN,IAHIN,NIN, SLOPE, EH) 

TOLER = ABS (SFIN (NTN) -SFIN (1) ) /FLOA"^ (NIN) *1 . E-B 

RETURN 

END 


FUNCTION RVTHTA (SF, I,vl) 

C 

C--RVTHTA CALCULATES R ♦ V-THETA AS A FUNCTION OF STREAM FUNCTION 
C--DOWNSTREAH OF THE BIADE 
C 

COMMON NREAD,NWRIT,ITSR,IEND,NHHT1, N WPT 2 , NW RT3 , N WRT4, N WRTS , N WRT 6 
COHMON/TNPUTT/GAH, AR,MSFL, OMEGA, REDFAC , VELTOL, FNEW, DN FW , M3T , MRO , 

1 MM,MHT,NBL,NHUB,N'^IP,NIN,N0UT, NBLPL,NPPP,NOSTAT,NSL,NLOSS, 

2 lsfr,ltpl,lahvt,lrot,lblad,letean,angpot,tmesh,isline, 

3 istatl,iplot,isuper,itson, tdebog,zomtn,zchbi,zombo, zohout, 

4 ROMIN, ROHBI,ROMBO,POMOUT,7,HIN,7TIN,ZHOOT, ZTOUT, RUIN , RTI N, RHOU’T' 

5 RT00T,TITLEI (20) ,ZHUB (SO) ,RHUB(S.'>) ,ZTIP(S0) ,pTiP (50) , SFIN (SO) , 

6 HA DIN (50), TIP (SO) ,PPTP(50),LAMIN(5C) , VTHIN (50) , SPOUT (50) , 

7 RADOUT (50) , PROP (50 ) , LOSOUT (50) , L AMOUT (50) , VTHOTIT (S") , 

8 BETALE (50) ,BETATE(50) ,ZHST (50 ) , ZTST (50) , RHST (SO) , PTST (SP) 

9 FLFR(50) ,PERCRD(50) ,PERLOS(50) ,ZBL(50,50) ,RBL(50,50) , 

1 THBL(50,50) ,TNBL(5C ,50) ,TTBL(50,50) , THI BL (50 , 50) , TH2BL ( 50 , 50 ) 

COMMON/CALCON/MHM1 , MHTP1 , CP , EXPON, TGROG , PITCH, RLEH , RLET . RTEH . RT ET 

1 ZLE (50) , RLE (50) ,ZTE (50) /RTF (50) ^ZLEOM (To 1 ) ,RLE OH (101) , 

2 SLEOM (101) ,THLEOM (101) , ZTEOH (^1 0 1 ) , RTEOM ( 10 1) ,STEOM (101) , 

3 THTEOM(IOI) ,TLE(101) , ITE ( 1 01 )", z6 M ( TOO , 10 1 ) , ROM ( 1 CO , 1 0 1 ) 

4 SOM (100, 10 1 ) , TOM (100 , 101 ) , B^TH (100 , 10 1) , DTHDS (100,101), 

5 DTHDT (100,101) ,PL0SS (100, 1>1) ,CPHI (100,101) ,SPHI (100 , 10 1) 
COMMON/VARCOM/A (4, 100, 1C1) , UOH ( 1 OC , 1 0 1 ) , K ( 1 00 , 1 0 1 ) , RHO ( 1 CO , 1 0 1 ) , 

1 WSUBS (100, 1 01 ) , HSUBT (100 , 1C1 ) , HSUBZ ( 100, 10 1) , HSUBE ( 100, 10 1) , 

2 MSOBM (100, 101) ,WTH (100, 101) , VTH ( 100, 101) ,H(100,101) , 

3 ALPHA{100,101),BETA(100,1C1),WWCR(1C0,101),CnRV(100,101), 

4 HLSURF(100,101) ,HTSURF(100,101) , CAMP { 1 00 , 1 0 T) , SAMP { 100 , 10 1) , 

5 RHOAV (100,101),DELRHO(10C,101),FT(100,101) ,DFDH (10 0,101) , 

6 XIOH (100,101) ,ZETOM (100 , 10 1) , DLDU (100,101) 

COHHOM/ROTATN/ZHROT (50) ,RHROT(5C) ,ZTROT(50) ,RTROT(50) , 



1 ZLHOMR (101) ,RLEOMR (101) ,ZTEOP1R (1"11) ,RTEOMP (101) , 

2 ZBLROT(50,50) , R BLROT (50 , 5^^) , ZOMROT { 1 00 , K 1 ) , ROMROT ( 1 GO , 101) 
DIMENSION SLOPE(5^) ,EN(50) , AAA(50) ,BRB(50) ,POLOH(101) ,UOLOM(1f'1) 
REAL LAMOUT 

KK = 2 

IF (ABS (SF-SFOfJT (1) ) .GT. TOLER) GO TO 10 
RVTHTA = LAMOOT(I) 

IF (I .GT.ITE (J) ) DLDU (I, J) =SLOPE (1) 

FETOHN 

10 IF(3F-5F0UT (1) ) 2C,2'',3Q 

20 RVTHTA = LA MOUT ( 1 ) ♦ (SF-SFOOT ( 1 ) ) *S LOPE ( 1 ) 

IF (I. GT. ITE (J) ) DLDO (I, J) =SLOPE (1) 

RETURN 

30 IF (ABS (SF-SFOOT (KK) ) .GT. TOLER) GO TO 40 
RVTHTA = LAMOUT (KK) 

IF (I.GT. ITE (J) ) DLDU (I, J) =SLOPE (KK) 

RETURN 

4C IP(SF-SFOUT (KK) ) 70,79,50 

5C KK=KK+1 

IF(KK-NOUT) 30,3C,6C 

6C PVTHTA = LAMOUT (NOUT) + (SF-SFOUT (NOUT) ) *SLOPE (NOUT) 

IF (I.GT. ITE (J) ) DLDU (I, J) =SLOPF (NOUT) 

RETURN 

70 SK = SFOUT (KK) -SFOUT (KK- 1) 

RVTHTA = EH (KK-1) * (SFOUT (KK) -3F) ♦♦3/6./SK + EM (KK) * (SF- SFOUT (KK-1 ) ) 

1 **3/6 ./SK+ (LAMOUT (KK) /SK-EM (KK) *SK/6.) * (SF- SFOUT (KK-1) ) + 

2 (LAMOUT (KK-1)/SK-EM (KK-1) *SK/6.) * (SFOUT (KK) -SF) 

IF (I.GT.ITE (J) ) DLDU(I,J)= - EM ( KK- 1 ) * (S FOOT (KK) -S F) * * 2/2. /S K + 

1 EM (KK) * (SFOUT (KK-1) - SF) **2/2. /SK*- (LAMOUT (KK) -LAMOUT (KK-1) ) 

2 /SK- (EM (KK) -EM (KK-1) ) *SK/6. 

RETURN 

ENTRY RVTNIT(NNN) 

IF (ITER. EQ. C) GO TO ICO 

IF (LSFH .EQ .0 . and. LAHVT. EQ. 0) GO TO ICO 
II = HBO 
JJ = 1 

CAN = COS(ANGHOT) 

SAN = SIN (ANGROT) 

ZHOPO = ZHOUT*CAN-*RHOUT*SAN 
RHORO = RHOUT*CAN-ZHOUT*SAN 
ZTORO = ZTOUT*CAN+RTOUT*SAN 
RTORO = RTOUT*CAN-ZTOOT*SAN 
DO 80 KK=1,HHTP1 
DIST = FLOAT (KK-1) /FLOAT (MHT) 

ROLOM(KK) = RHOUT + niST* (RTOUT-RHOUT) 

ZOROT = ZHORO+DIST* (ZTOKC-ZHORO) 

ROROT = EHORO + DIST* (PTORO-RHORO) 

80 CALL LININT (ZOMROT,P.OHROT,UOM,MM,MHTP1, 1 OC , i 0 1 , ZOROT, ROROT , 

1 UOLOM (KK) ,11, JJ) 

IF (LSFR.SQ.O) CALL SPL I NT ( UOLOM , ROLOM , MHTP1 , SFOUT , NOUT , PA DOUT, 

1 AAA, BBB) 

IF (LSFR.EQ.1) CALL SPLINT ( ROLOM, UOLOM , MHTP 1 , RADOOT , NOUT, SFOUT, 

1 AAA, BBB) 

IF (LSFR. EQ. 1 . OR. LAHVT. EQ. 0) GO TO 100 
DO 9C KK=1,NOUT 

90 LAMOUT(KK)= RADOUT (KK) *VTHOUT (KK) 

ICO CALL SPLINE (SFOUT, LAMOUT, NOUT, SLOPE, EH) 

TOLER = ABS (SFOUT (NOUT) -SFOUT (1) )/FLOAT (NOUT) *1. E-6 

RETURN 

END 
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noon 


FUNCTION TIFF (SF) 


--TTPF CALCULATES UPSIRFAM ABSOLUTE TOTAL TFHPEPATURE 
--AS A FUNCTION OF STREAN FUNCTION 


COMNON/INPUTT/OAM, AR ,'iSFl,0«EGA, REDFAC , VELTOL , FNSH, UNF W , UBT , NBO, 
Un,HHT,NBL,NHUB,NTTP,NrN,NOUT,N3LPL, NPPP, NOST AT , NSL, NLOSS , 
LSFP, LTPL, LAMVT,LROT,LBLAn,LETtAN, ANGROT,IHESH,TSLINE, 
ISTATI,IFLOT,TSUPFR,ITSON,IOEPUG,ZOMTN,ZOMBI,20?1BO/ZOHOOT, 
RONIN,ROMBI, ROMBO, ROMOUT, ZHIN ,ZTTN,ZHOUT,ZTOnT,RHTV,ETIN,RHOTJ'T' 
RTOUT, TITLEI (2C ) , ZHUB (5C ) ,PHUB (B'^) ,ZTIP(50) , RTIP (S'" ) , SPIN (SB ) , 
RADIN (50) ,TTP(S^) ,PFTP(5C) .LANIN ,VTHIN(50) ,SFOnT(50) , 
RADOUT(50) ,PP0P{50) ,LOSOUT(50) ,LANOUT(50) .VTHOUT (50) , 

BETALE (5 0) , BETATF (50) ,ZHST (50 ) , ZTST (50) , PHST (50) ,RTST (50) , 
FLFR(50) ,?FRCRD{5'') ,PERLOS(50) ,ZBL(50,5C) ,RBL(53,50) , 

THBL (50 , 50) , TNBL (5'’ ,50) ,TTBL (SO , 50) , TH 1 BL (50 , 50 ) , ■” H2BL ( 5'^ , 50 ) 

COn«ON/CALCCN/MMMl,NHTP1 , CP, EXPON.TGROG, PITCH, RLEH,PLET,PTEH,RTET 

ZLE(50) , RLE (50) ,ZTE(5C) , RTF (50) ,ZLEOH(101) ,RLEON (101) , 

SLEOa (1 ■'1) , THLEON (10 1) ,ZTEOM (10 1) , RTECM (1C1) , ST EON (101) , 
THTEOIi(IOI) ,ILE(i:i) ,ITE(1C1) , ZOM ( ICO , 1C 1 ) , ROM { 1 09 , 1 0 1 ) , 

SOM (1 CO, 10 1 ) , TOM ( 100 , 10 1 ) , BTH (100 , 10 1) ,DTHUS ( 10'', 10 1) , 

DTHDT {100, 101) ,PLOSS (If 0, 101) ,CPHI (100, 10 1) ,SPHT (100 , i-i 1) 
DIMENSION SLOPE (50) , EM (50) 

K = 2 


IF (ABS (SF-SFIN ( 1) ). GT. TOLER) GO TO 10 
TIPF = TIP (1) 

RETURN 

10 TF(5F-SFIN (1) ) 20,20,30 

20 TIPF = TIP (1) + (S F-SFIN ( 1) ) *SLOPE (1) 
RETURN 

30 IF(ABS (SF-SFIN (K) ) .GT. TOLER) GO TO 40 
TIPF = TIP(K) 

RETURN 

40 IF (SF-SFIN (K) ) 70,70,50 
50 K=K*1 


IF(K-NIN) 30,30,60 

60 TIPF = TIP (NIN) + (SF-SFIN (NIN) ) *SLOPE (NIN) 

RETURN 

70 SK = SPIN (K) -SPIN (K-1) 

TIPF = EM (K-1)'* (SPIN (K) -SF) **3/6 . /SK* EM (K) * (S F-S FIN (K- 1 ) ) *a 1/ 

1 6./SK+(TIP (K)/SK-EH (K) *SK/6. )* (SF-SFIN (K-1) )♦ (TIP (K- 1) / 

2 SK-EM (K - 1) *SK/6. ) * (SPIN (K) -SF) 

RETURN 

ENTRY TIPNIT (NNN) 

CALL SPLINE (SFIN, TIP, NIN, SLOPE, EM) 

TOLER = ABS (SPIN (NIN) -SFIN (1) ) /FLOAT(NTN) *1. E-6 

RETURN 

END 


FUNCTION RHOIPF(SF) 

C 

C — RHOIPF CALCULATES UPSTREAM ABSOLUTE TOTAL DENSITY 
C--AS A FUNCTION OF STREAM FUNCTION 
C 

COMMON/INPOTT/GAM, AR, MS FL, OMEGA, REDFAC, VELTOL, FNEH , DNEW , MB I , HBO, 


1 NBL, NHUB,NTIP, NIN, NO!J'^,NRLPL,NPPP, NOSTAT, NSL, NLOSS, 

2 LSFP,LTPL,LAHVT, LROT,IBLAP,LETE AN, ANGKOT, TMESH, TSL TNE, 

G ISTATL, I PLOT, TGnr RR , ITSON , IDEBIIG , ZOMIN, ZC«BI , 70ME0, ZOMOUT, 

U ROHTN,KOMBI,RCMBO, ROMOUT , ZH^N , ZT IN , Z HOnT , ZTOTIT , PHTN, RTTN, RHOH'^, 

5 RTOUT, TITLE! (20) ,ZHtJD(5<') ,PHUn(R'') ,ZTTP(E0) ,RTTP{5P) ,SFTN , 

6 HADIN (5 2) , TIP (SO) ,PR1P (RC) ,LAMTN , VTHIN (5^) ,SFO'IT (5'^ ) , 

7 RADOUT (50) , PROP (5") , LOGOUT (50 ) , L AflOtIT (50) , VTHOUT (5'') , 

8 BETALE(5C) ,BETATE(50) ,ZHST(50) ,ZTST(5Bj ,FHST(5'') ,PT.GT(5'') , 

9 FLFR(50) ,PERCRD(5') ,PEPLOS(50j ,ZEL(50,5>P) , PPL ( 5'> ,■=■:. ) , 

1 THBL(50,50) ,TNBL(50,50) , TTBL ( 5" , 5 '') , TU 1 B L (50 , 5'') , 2 BL ( 50 , ) 

COMMON/CALCON/MMM1 ,MHTP1 ,CP , EXPO N, TGROG , PITCH , PLEH , FL ET , PT EH, PT E"" , 

1 ZLE(50) ,RLE(5C) ,ZTE (50) ,PTE(5'^) ,ZLEO(< (101) , RI.E01 (I” 1) , 

2 GLEOH (10 1) , THLEOM (10 1) , ZTFOH ( 1 1 ) ,RTEO« (10 1) , GTEOM ( 1 " 1 ) , 

3 THTFOM (101 ), TIE (101) , ITE (1 C 1 ) , ZO H ( 100 , 10 1 ) , ROM ( 1 CO , 1 0 1) , 

4 SOM(1C0,101), TO« ( 100 , 10 1 ) , BTH (100, 1^ 1) , DTHDS (10*^ , 1 ^ 1) , 

5 DTHDT(1C0, 101) ,PLCSS (100 ,101) , CPHI ( 1 0^ , i r 1 ) , SPHI (100, ioi) 
DIMENSION SLOPE (50) , EM (50) , PHOIP (50) 

K = 2 

IF (ABS (SF-SFIN (1) ) .GT. TOLER) GO TO 10 
PHOIPF = BHOIP (1) 

RETURN 

10 IF (SF-SFIN ( 1) ) 20,20,30 

20 FHOIPF = RHOIP (1 ) + (SF-SFIN (1) ) *SLOPE (1) 

RETURN 

3C IF (ABS (SF-SFIN (K) ) ,GT, TOLER) GO TO U'' 

RHOIPF = RHOIP (K) 

RETURN 

4C IF (SF-SFIN (K) ) 70,70,50 

50 K=K+1 

IF(K-NIN) 30,30,60 

60 PHOIPF = RHOIP (NIN) ♦ (SF-SFIN (NIN) ) *SLOPE (NIN) 

RETURN 

70 SK = SPIN (K) -SFIN (K-1) 

RHOIPF = EM(K-1)*(GFIN(K)-SF)**3/6./SK+EM(K)*(SF-SPIN(K-1))**3/ 

1 6./5K+(RH0IP (K)/SK-EM(K) *.GK/6. )* (5F-SFTN (K-1) )♦ (RHOIP (K-1)/ 

2 SK-EM (K-1) *SK/6. )* (SFIN (K) -SF) 

RETURN 

ENTRY RHINIT(NNN) 

DO 80 J=1,NIN 

8C PHOIP(J) = PRIF (J) /AR/TIP (J) 

CALL SPLIN E (S FIN , PHOTO, NIN, SLOPE, EM) 

TOLER = ABS(GFIN(NIN) -SFIN(1))/FLOAT(NIN) *1.E-6 

RETURN 

END 


GUBPOUTI NE CONTI N (XEGT , YCALC ,TND,.1Z, YGIV,Xn EL) 

C 

C--CONTIN CALCULATES AN ESTIMATE OF THE RELATIVE FLOW VELOCITY 
C--FOR USE IN THE VELOCITY GRADIENT EQUATION 
C 

DIMENSION X (3) ,Y (3) 

NCALL = NCALL+1 

IF (IND. NE. 1. AND. NCALL. GT. I'P) GO TO 160 
GO TO (1 C ,30, 4C , 50, 6C , 1 10, 1 50) , IND 
C--FIBST CALL 
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10 HCALL = 1 
XOPIG = XEST 

IF (YCALC.GT.YGIV.AND.JZ.EQ.1) GO TO 20 

IND =2 

Y(1) = YCALC 

X(1) = 0. 

XEST = XEST+XDEL 
BETDRN 
2C IMD = 3 

Y(3) = YCALC 
X(3) = 0. 

XEST = XEST-XDEL 
RETORN 

C--SECOND CALL 
30 IND = 4 

Y(2) = YCALC 
X{2) * XEST-XOBIG 

XEST = XEST+XDEL 
BETDRN 
40 IND = 5 

Y(2) = YCALC 
X(2) = XEST-XOBIG 
XEST = XEST-XDEL 
RETURN 

C — THIRD OR LATER CALL - FIND SUBSONIC OR SUPERSONIC SOLUTION 
50 Y(3) = YCALC 

X(3) = XEST-XORIG 

GO TO 70 
60 Y(1) = YCALC 

X(1) = XEST-XOBIG 

70 IF (YGIV.LT.AHIN1 (Y (1) ,y (2) ,Y (3) ) ) GOTO (120, 130), JZ 
80 IND = 6 

CALL PABC (X,Y , APA,BPB,CPC) 

DISCR = BPB**2-4.*APA* (CPC-YGIV) 

IP (DISCR. LT.O.) GO TO 140 

IF (ABS (400.*APA* (CPC-YGIV) ) .LE.BPB**2) GO TO 90 
XEST = -BPB-SIGN (SQBT(DISCR) ,AP ) 

IF (JZ.EQ. 1 .AND. APA.GT.O.. AND. Y (3) . GT. Y (1) ) XEST= -BPB + 
1SQRT (DISCR) 

IF (JZ.EQ.2.AND.APA.LT.0.) XEST = -BPB-SQRT (DISCR) 

XEST = XEST/2./APA 
GO TO 100 

90 IF (JZ.EQ.2 .AND.BPB.GT.O.) GO TO 130 
ACB2 = APA/BPB* (CPC-YGIV)/BPB 
IF (ABS(ACB2) .LE.1.E-8) ACB2=0. 

XEST = - (CPC-YGIV) /BPB* (1. ♦ACB2 + 2. *ACB2**2) 

100 IF (XEST.GT.X (3) ) GO TO 130 
IF (XEST.LT.X (1) ) GO TO 120 
XEST = XEST+XORIG 
RETURN 

C--FODRTH OR LATER CALL - NOT CHOKED 
110 IF(XEST-XORIG.GT.X (3) ) GOTO 130 
IF(XEST-XORIG.LT.X (1) ) GO TO 120 
Y(2) = YCALC 

X(2) = XEST-XORIG 
GO TO 70 

C--THIRD OB LATER CALL - SOLUTION EXISTS, 

C--BUT RIGHT OR LEFT SHIFT REQUIRED 
12C IND = 5 


C--LEFT SHIFT 

XEST = X {1 ) -XDEH-XORIG 
XOSHFT = XEST-XORIG 
XORIG = XEST 
Y(3) = Y(2) 

X (3) = X (2) -XOSHFT 
Y(2) = Y(1) 

X (2) = X (1) -XOSHFT 
RETURN 
13C IND = « 

C — RIGHT SHIFT 

XEST = X (3) +XDEL+XOBIG 
XOSHFT = XEST-XOPIG 
XORIG = XEST 
Y(1) = Y(2) 

X (1) = X (2) -XOSHFT 
Y(2) = Y{3) 

X (2) = X (3) -XOSHFT 
RETURN 

C — THIRD OR LATER CALL - APPEARS TO BE CHOKED 
140 XEST = -BPB/2./APA 
IND = 7 

IF (XEST.LT. X (1) ) GO TO 120 
IF (XEST. GT. X (3) ) GO TO 130 
XEST = XEST4-XORIG 
RETURN 

C--FOURTH OR LATER CALL - PROBABLY CHOKED 
150 IF (YCALC. GE. YGIV) GO TO 110 
IND = 10 
RETURN 

C--NO SOLUTION FOUND IN 100 ITERATIONS 
160 IND = 11 
RETURN 
END 


SUBROUTINE PABC ( X , Y , A, B, C) 

C 

C — PABC CALCULATES COEFFICIENTS A,B,C OF THE PARABOLA 
C— Y=A*X**2+B*X+C, PASSING THROUGH THE GIVEN X,Y POINTS 
C 

DIMENSION X (3) ,Y (3) 

Cl = X(3)-X(1) 

C2 = (Y(2)-T(1))/{X(2)-X(D) 

A = (C1*C2-Y(3)+Y(1))/C1/(X(2)-X(3)) 

B = C2- (X(1)tX(2))*A 

C * Y(1)-X(1) *B-X(1)**2*A 

RETURN 

END 


^ SUBROUTINE INRSCT (XCURV1 ,YCURV1 , N1 , XCORV2,YCURV2, N2 ,XCROSS , YCROSS) 
C--INRSCT CALCULATES THE COORDINATES (ACROSS, TCROSS) OF THE POINT 
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C--OF INTERSECTION OF TWO SPLINE CORVES, YCURV 1=F (XCtIPVI) AND 
C--XCORV2=G (YCURV2) , LYING ON A PLANE 
C 

COMMON NBEAD,NWPIT 

DIMENSION XCORV1 (N1) , YCURV 1 (Nl) ,XCORV2 (N2) , YCUPV2 (N2) 

NCOUNT = 0 

TOLER = (ABS(XCDPV1 ( N 1 ) - XCOR V 1 ( 1 ) ) ♦ ABS ( YCUR V2 (N2) -YCDPV2 (1) ) ) /I . E5 
XTEMP = XCDRV1 (1) 

YTEMP = YCURV1 (1 ) 

XCROSS = (XCORV1 (1) +XCURV1 (Nl) ) /2. 

C--CONPDTE INTERSECTION POINT AND SLOPS ON CUPVE 1 
1C XI = XCROSS 

CALL SPLINT (XCURV1 ,YCURV1,N1, XI, 1,Y1, SI, TEMP) 

C--COHPUTE INTERSECTION POINT AND SLOPE ON CURVE 2 
Y2 = Y1 

CALL SPLINT ( YCUR V2 , XCUR V 2, N 2, Y2 , 1 , X 2 , S2 , TEMP) 

C — COMPUTE COORDINATES OF POINT WHERE TWO SLOPES INTERSECT 
S1S2 = S1*S2 

XCROSS = X2tS1S2* (X2-X1)/(1.-S1S2) 

YCROSS = Y1+S1 * (X2-X 1) /( 1 . -S1S2) 

C — COMPOTE DISTANCE AWAY FROM PREVIOUS SLOPE INTERSECTION POINT 
DIST = SQRT ( (YCROSS-YTEMP) ♦*2»(XCROSS-XTEMP) **2) 

IF (DIST .LT .TOLER) RETURN 
NCOUNT = NCOUNT+1 
IF (NCOUNT. GT. 20) GO TO 20 
XTEMP = XCROSS 
YTEMP = YCROSS 
GO TO 10 

20 WRITE(NWRIT,1000) TOLER, DIST 
RETURN 

100C FORMAT (6X , 46HINRSCT HAS FAILED TO CONVERGE IN 20 ITERATIONS/ 

1 10X, 1 1NTOLERANCE = , G 1 4 . 6/1 0 X , 47HDTS T A NC F BETWEEN LAST TWO INTERSSC 
2TION POINTS =,G14.6) 

END 


SUBROUTINE LIN I NT (X , Y , Z , NX , N Y , ND I MX , ND IHY , XO , YC , ZO , I , J) 

C 

C — LININT LOCATES THE POINT (X0,Y0) IN A 2-D MESH WITH 
C--COORDINATES STORED IN THE X AND Y ARRAYS. THEN THE VALUE OP AT 
C--(XO,YO) IS INTERPOLATED FROM THE Z ARRAY VALUES CORRESPONDING 
C — TO THE X AND Y ARRAYS 
C 

COMMON NREAD,NWRIT 

DIMENSION X (NDIMX,NDIMY) ,Y (NDIMX, NDIMY) ,Z (NDIMX, HDIMY) 

DIMENSION EXTRAP (2) 

INTEGER ABOVE, RIGHT 

C--PIND I,J SUCH THAT (X0,Y0) IS IN COLUMN I FROM THE LEFT AND IN ROW J 
C--FROH THE BOTTOM 

IF{NX.LT.2 .OR.NT. LT. 2) STOP 
IF(I.LE.O) 1=1 
IP(I.GE.NX) I = NX-1 
IP(J.LE.O) J = 1 
IF(J.GE.NY) J = NY-1 
ICOONT = 0 
ICNTMX = 2 * (NX+NY) 
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10 ABOVE = -1 
RIGHT = -1 

IF(Y0.GE. Y {I, cT) ♦ (X^-X (I, J) ) /(X(I+1, J) -X (I,J) ) * (Y(T+1,J) -Y (I, J) ) ) 

1 ABOVE = ABOVE+1 

IF(YC. GT. Y (I, J + 1) ♦ (X''-X (4 J + 1) ) / (X (I^l, J+1) - X(l, J+1)) * 

1 (Y (1 + 1, J + 1) -Y (T, J*1 ) ) ) ABOVE = ABOVE+1 
IF(X0.GE.X (I, J) + (YO-Y (I, J) ) /(Y(I,J+1) -Y (I,J) ) * (X(T,J+1) -X(T,J) ) ) 

1 RIGHT = RIGHT+1 

IP(X0.GT.X(I+1,J) + (Y0-Y(I+1,J))/(Y(I+1,J+1)-Y(I+1,J))* 

1 (X (I + 1,J + 1) -X (1+1 , J) ) ) RIGHT = RIGHT+1 
IV = I+RIGilT 
JN = J+ABOVS 

IF(TN.LT. 1 .OR. IN.GE. NX) RIGHT = H 
IF(JN.LT.1 .OR.GN.GE.NY) ABOVE = n 
IF{ABOVE**2+RIGHT**2. EQ. 0) GO TO 20 
I = I+RIGHT 
J = J+ABOVE 
ICOUNT = ICCONT+1 
IF(ICOnNT. GT. ICNTflX) GO TO IK 
GO TO 10 
2C IJEX = 1 

C-- SET EXTRAP TO INDICATE EXTRAPOLATION 
EXTRAP(I) = 0. 

EXTRAP (2) = 0. 

TF(IN.LT.I) EXTRAP(2) = -1. 

IF(TN.GE.NX) EXTRAP(2) = 1. 

IF(JN.LT.I) EXTRAP(I) = -1. 

IF(JN.GE.NY) EXTRAP(1) = 1. 

C — CALCULATE CONSTANTS TO CALCULATE FY 
Y13 = Y (I,J) -Y (I,J+1) 

X13 = X (I,J)-X (I,J+1) 

Y42 = Y (1 + 1 ,J + 1) -Y (1 + 1 , J) 

XU2 = X (1 + 1 ,J+1> -X (1+1 , J) 

Y01 = Y0-Y(I,J) 

X01 = XO-X (I, J) 

Y02 = YO-Y (1+1 ,J) 

X02 = XO-X (1+1 , J) 

Y21 = Y (1+1 ,J) -Y (I, J) 

X21 = X (1+1 ,J) -X (I, J) 

C — CALCULATE COEFFICIENTS OF QUADRATIC EQUATION FOR FRAC'^IONAL DISTANCE 
C--IN QUADRILATERAL 

30 QA = Y13*X42-X13*Y42 

QB = X13*Y02-Y13*X02+Y01*X42-X01*Y42 
QC = YP1*X21-X01*Y21 
DISCR = QB**2-4.-+QA*QC 
IF(DISCR.LT.O.) GO TO 110 

C--CHECK TO SEE IF QUADRATIC EQUATION IS CLOSE TO LINEAR 
IF(ABS(4.*QA*QC) .LE.QB**2*.01) GO TO 80 
FA = -QB/2./QA 
FB = SQRT(DISCR)/2./QA 
FI = FA+FB 
F2 = FA-FB 

C — CHECK TO DETERMINE WHETHER Fl OR F2 IS THE PROPER SOLUTION 
CASE = -1. 

IF(EXTRAP(IJEX) ) 40,50,60 

C--EXTRAPOLATION BELOW OR TO LEFT (FF LESS THAN 0.) 

40 IF(F1 .LT. .01) CASE = CASE+1. 

IF(F2.LT..Q1) CASE = CASE+2. 

IF(CASE.LT. 1 . 5) GO TO 70 
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CASE = CASF-1. 

IF(P2.LT.F1) CASE = CASE-1. 

GO TO 70 ’ 

C--NO EXTRAPOLATION 

50 IF (ABS (F1-. 5) .LT. . 51) CASE = CASB+1. 

IF(ABS (F2-. 5) ,LT. . 51) CASE = CASE+2. 

GO TO 70 

C--EXTBAPOLATION ABOVE OR TO RIGHT (PP GREATER THAN 1.) 

60 IF(P1.GT. .99) CASE = CASE+1. 

IF (F2.GT. . 99) CASE = CASE+2. 

TP (CASE.LT. 1 . 5) GO TO 70 
CASE = CASE-1. 

IF(F1.LT.F2) CASE = CASE-1. 

70 IF(ABS(CASE-.5) .GT..6) GOTO 110 
FF = (1 .-CASE) *F1+CASE*F2 
GO TO 90 

C--IF QUADRATIC EQUATION IS NEAR LINEAR, USE BINOMIAL EXPANSION FOR FF 
BO ACB2 = QA/QB*QC/QB 

IF (ABS (ACB2) . LT. 1. E-8) ACB2 = 0. 

FF = -QC/QB* (1 . +ACB2 + 2. ♦ ACB2**2) 

90 IF(TJEX. EQ. 2) GO TO IOC 
IJEX = IJEX+1 
FY = FF 

C- -INTERCHA NGE CORNER POINTS TO GET FX 
Y13 = Y (I, J) -Y (1 + 1, J) 

X13 = X (I, J) -X (1 + 1 , J) 

Y42 = Y (1+1 ,J+1) -Y (I, J+1) 

XU2 = X (1+1 , J+1) -X (I, J+1) 

Y’"»2 = YO-Y (I, J+1) 

XH2 = XO-X (I, J+1) 

Y21 = Y (T, J + 1) -Y (I, J) 

X21 = X (I, J+1) -X (I,J) 

GO TO 30 

C--CALCULATE INTERPOLATED VALUE 
100 FX = FF 


ZC = Z (I , J) * (1 . - FX) * (1 . -FY) +7, (1+ T, j) *FX* (1 . -FY) +Z (I, J + 1) * ( 1 . - FX) 
1 *FY+Z (1+1, J + 1) +FX*FY 
RETURN 

C-- PRINT ERROR MESSAGE IF THERE IS A PROBLEM IN OBTAINING A SOLUTION 
110 ZO = 0. 

WRITE (NHPIT, 10C0) I,J 
RETURN 


1000 F0RMAT(38H1LININT CANNOT FIND INTERPOLATED VALUE/4H I 
116) 

END 


=,I6 ,4H J = 


r 


SUBROUTINE ROT ATE ( A NGROT , X , Y , NX , NY , NDI MX , NDIHY , XROT , YROT) 
DIMENSION X(NDIMX,NDIMY) ,Y (NDIMX,NDIMY) ,XROT (NDIMX, NDIMY) , 
1 YROT (NDIMX, NDIMY) 

CAN = COS (ANGROT) 

SAN = SIN(ANGROT) 

DO 1 0 J=1 , NY 
DO 10 1=1, NX 

TEMP = X (I , J) *CAN+ Y (T, J) +SAN 
YROT(I,J) = Y (I, J) *CAN-X (I, J) *SAN 
10 XROT(I,J) = TEMP 
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RETORN 

END 


SOBROOTINE SPLINE (X ,Y, N, SLOPE, EM) 

C 

C--SPLINE CALCULATES FIRST AND SECOND DERIVATIVES AT SPLINE POINTS 
C--END CONDITION - SECOND DERIVATIVES AT END POINTS ARE 
C--SDR1 AND SDRN TIMES SECOND DERIVATIVES AT ADJACENT POINTS 
C 

COMMON NREAD,NWRIT 

DIMENSION X (N) ,Y (N) , SLOPE (N) ,EM (N) 

DIMENSION G (101) , SB (101) 
lERR = 0 
SDR1 = .5 
SDRN = .5 
C = X{2) -X (1) 

IF (C.EQ.O.) GO TO 50 
SB(1) = -SDR1 
G(1) =0. 

NO = N-1 

IF (NO.LE.O) GO TO 6C 
IF (NO.EQ.1) GO TO 20 
DO 10 1=2, NO 
A = C 

C = X (1 + 1) -X (I) 

IF (A+C.EQ.O.) GO TO 50 
IF (A*C.LT.O.) lERR = 1 
H = 2.* (A + C) -A*SB (1-1) 

SB(I) = C/M 

F = (Y(I+1)-Y(I))/C-(Y(I)-Y(I-1))/A 

10 G(I) = (6.*F-A*G (1-1) )/H 
20 EM(N) = SDRN*G (N-1) / (1 . +SDRN*SB (N-1 ) ) 

DO 30 1=2, N 
K = N+1-I 

30 EM(K) = G (K) -SB (K) *EM (K + 1) 

SLOPE (1) = (X (1)-X(2))/6.* (2.+EM (1) +EM(2))+ (¥ (2) - Y ( 1) ) / (X ( 2) -X(1)) 
DO 40 1=2, N 

40 SLOPE(I) = (X (I) -X (1-1) ) /6. ♦ (2. *EM (I) +EM (1-1) ) + (Y (I) -Y (1-1) ) / 

1 (X(I)-X(I-D) 

IF (lERR.EQ.O) RETURN 
50 WRITE (NMRIT, 1000) 

BRITE(NHEIT,1020) N, (X (I) , Y (I ) , 1= 1 , N) 

IF (lERR.EQ.O) STOP 
WHITE (NHRIT,1030) 

RETURN 

60 WRITE (NIRIT, 1010) 

WRITE (NWRIT, 1020) N, (X ( I) , Y (I) , 1= 1 , N) 

STOP 

1000 FORMAT ( 1 Hi , 1 OX, 44 HSPLINE ERROR — ONE OF THREE POSSIBLE CAUSES/ 
117X,51H1. ADJACENT X POINTS ARE DUPLICATES OF EACH OTHER./ 
217X,38H2. SOME X POINTS ARE OUT OF SEQUENCE./ 

317X,32H3. SOME X POINTS ARE UNDEFINED.) 

1010 FORMAT (1H1,10X,62HSPLINE ERROR — NUMBER OF SPLINE POINTS GIVEN I 
IS LESS THAN TWO) 

1020 FORMAT (//17X, 18HNUMBEH OF POINTS = , I4//1 7 X , 8HX ARRAY, 6X,8HY ARR 
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1030 


1AY/{17X,2G13.5)) 
FORMAT (1H1) 

END 


^ SDBRODTINE SPLINT (X , Y , N ,Z , M AX, YINT , DYDX, D2YDX2) 

C--SPLINT CALCULATES INTERPOLATED POINTS AND DERIVATIVES 
C--FOR A SPLINE CURVE 

C--END CONDITION - SECOND DERIVATIVES AT END POINTS ARE 
C--SDR1 AND SDRN TIMES SECOND DERIVATIVES AT ADJACENT POINTS 


C 


COMMON NREAD,NWRIT 

DIMENSION X (N) , Y (N) ,Z (MAX) , YINT (MAX) 
DIMENSION G (10 1 ) , SB ( 10 1 ) ,EM (1P1 ) 
lERR =0 
SDR1 = .5 
SDRN = .5 

TOLER= ABS(X(N)-X(1)) /FLOAT (N) *1 . E-5 
C = X(2)-X(1) 

IP (C.EQ.O.) GO TO 130 
SB(1) = -SDR1 
G(1) = 0. 

NO = N-1 


10 

20 


30 


140 

20 


IF (NO.LE.O) GO TO 
IF (NO.EQ.1) GO TO 
DO 10 1=2, NO 
A = C 

C = X(I+1)-X(I) 

IF (A*C.EQ.0.) GO TO 130 
IF (A*C.LT.0.) lERR = 1 
W = 2,* (A*C)-A*SB (1-1) 

SB (I) = C/W 

F = (Y(I+1)-Y(I))/C-(Y(I)-Y(I 
G(I) = (6.*F-A*G (1-1) )/w 
EM(N) = SDRN*G (N-1) / (1 . -*-SDRN*SB (N 
DO 30 1=2, N 
K = N+1-I 

BM(K) = G (K) -SB (K) *EM (K+1) 

IF (MAX.LE.O) RETURN 


1))/A 

1 ) 


DYDX (MAX) , D2YDX2 (MAX) 


ENTRY SPLENT ( Z , M AX , YINT, DYDX, D2YDX 2) 

DO 120 1=1, MAX 

K=2 

IF (ABS (Z (I) -X (1 ) ) . LT.TOLER) GO TO 40 
IF (Z (I) . GT.2 . 0*X ( 1) -X (2) ) GO TO 50 
GO TO 80 

40 YINT(I) = Y(1) 

SK = X(K) -X (K-1) 

GO TO 110 

50 IF (ABS (Z (I) -X (K) ). LT.TOLER) GO TO 60 
IF (Z (I) .GT.X (K) ) GO TO 70 
GO TO 100 
60 YINT(I) = Y(K) 

SK = X(K) -X (K-1) 

GO TO 110 
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70 

8C 


90 


IOC 

1 

2 

110 


120 

13G 

14C 
100 0 

101C 

1020 

1030 


IF (K-GE.N) GO TO 90 
K = K^1 
GO TO 50 

DYOJ(I) = (V(2)-I(1))/S2;3-*'"(;i^f-'” 

YINT(I) = Y0 + DYDX(I)*(7^(I)“^(^)'*'^^^ 

D2YDX2 (I) = 0 . 

?? '"(?(1^!lt.2.*x(i^)-x(«-1)) go to 100 

SM = X (N) -X (N-1) 

YNPI = EM (fJ) *SN**2 + 2. *Y (N) -Y (N-1) 

(II " A<»i -< i"-’i > r," "".i ■ 

YINT(I) = YNPI+DYDX (I) * (Z(I)-X(N)-SN) 

D2YDX2(I) = 0. 

GO TO 12C 

SK = X(K)-X(K-1) ^ >EH(K)*{Z(T)-X(K-1))**3/6. 

’^TsKMYm/ir 

DY^D? (i) (K-M* (K) -z ;rs^:;r 

CONTINUE 

IF (lERR.EQ.O) RETURN 

RRITE(NHRIT,1000) _ 

WRITE (N WRIT, 10 20) N , (X (I) , Y (I) , I- 1 , N) 

IF (lERR.EQ.O) STOP 
WRITE (NWRIT,1 030) 

RETURN 

WRITE(NWRIT.IOIO) 

WRITE (NWRIT, 1020) N , (X ( I) , Y ( I) , I 1» ) 

10Y UUHSPLIHT ERROR " ONE OF THREE POSSIBLE CAUSES/ 
51H (J25cr»? Y PO«?5 ME D-JPIICATES OF EACH OTHEF./ 

IyS'sShI: SOHE Y points are OIIT OF SEOOENCE./ 

17x',32H3. SOHE X POINTS qf SPLINE POINTS GIVEN I 

format (1H1,10X,62HSPLINT error — NUMBER OF SPLINE fux 

FOFHM ""/liri’RHNHHFEF OF POINTS - , I«//1 7X . SHY ARRAY, 6X.9HY ARE 

AY/{17X,2G13.5)) 

FORWAT (1H1) 

END 


1 

2 ' 

3^ 

1 

I 

r 


subroutine slopes (X,Y,N, SLOPE) 


C--SLOPES CALCULATES FIRST ' 

Q WITH RESPECT TO X, USING A PARABOLIC 

C--THREE ADJACENT POINTS ON THE CURVE 

^ dimension X(N) ,Y(N) ,SLOPE(N) 

N1 = N-1 
«2 = N-2 

IF (N1.LT. 2) GO TO 20 
C — MID POINTS 


SLOPE, OF the FUNCTION, 
fit THROUGH EACH SET OF 


V, 
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DO 1C 1=2, N1 
X?X2 = X (1 + 1) -X (I) 

X2X1 = X (I) -X (1-1) 

X1X1 = X (T+1) -X (1-1) 

Y3Y2 = Y (1 + 1) -Y(i) 

Y2Y1 = Y (I) -y (1-1) 

C--Fil?|^°poiJT " ^^"’^^‘*2*^’’f2+X3X2**2*Y2Y1)/(X3X2*X2Xl*X3X1) 

X3X2 = X (3) -X (2) 

X2X1 = X (2) -X (1) 

X3X1 = X(3)-X(1) 

Y3Y1 = Y (3) -Y (1) 

Y2Y1 = Y(2)-Y(1) 

C--LA3T^POTNT^ " ^ ^ 2* Y2 Y 1 -X2 X 1 **2 ♦ Y 3 Y 1 ) / (X3X2 + X2X 1 *X 3X 1) 

X3X2 = X (N) -X (N1 ) 

X2X1 = X(N1)-X(N2) 

X3X1 = X(N)-X(N2) 

Y3Y2 = Y (N) -y (N1) 

Y3Y1 = Y (N) -Y (N2) 

RETURN*^^ ~ ^^^’^^**^*^^’^2"^^^2’»*2*Y3Y1)/(X3X2*X2X1*X3X1) 
C--THO POINT FUNCTION 

20 SLOPE(I) = (Y(2)-Y(1))/(X(2)-X(1)) 

SLOPE{2) = SLOPE(1) 

RETURN 

END 


SUBROUTINE SPLI S L (X, Y, N , Y1 P , YNP, S LO PE, EM) 


COMMON NREAD,NHRIT 

DIMENSION X (N) , Y (N) , SLOPE (N) ,EM (N) 
DIMENSION G (1 0 1) ,SB ( 10 1 ) 
lERR = C 
C = X(2)-X(1) 

IF (C.EQ.O.) GO TO 50 
SB(1) = .5 

F = (Y (2) -Y (1 ) ) /C-Y1 P 
G(1) = 3.*f/C 
NO = N-1 

IF (NO.LE.O) GO TO 60 
IF (NO.EQ.1) GO TO 20 
DO 10 1=2, NO 
A = C 

C = X(I+1)-X(I) 

IF (A*C.EQ.O.) GO TO 50 
IF (A*C.LT.O.) lERR = 1 
W = 2. * (A + C) - A*SB (I- 1) 

SB (I) = c/H 

10 ?fT» {I-‘'))/A 

10 G(I) = (6 .*F-A*G (1-1 ) ) /W 

20 H = C* (2. -SB (N-1) ) 

F = YNP-(Y(N) -Y(N-1) )/C 
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n n n n n 


ES(N) = (6.*P-C*G(N-1) )/H 
DO 30 1=2, N 
K = N+1-I 

30 E1(K) = G(K) -SB(K) *EM (K + 1) 

SLOPE(I) = YIP 
DO 40 1=2, NO 

40 SLOPE(I) = (X(I)-X(I-1))/6.*(2.*EN(T)4E!1(I-1))*{Y(I)-Y(T-1))/ 

1 (X(I)-X(I-I)) 

SLOPE(N) = YNP 
IF (lERR.EQ.O) RETrjBN 

50 MRITE(NWRIT,1000) 

WRITE (N WRIT, 1020) N,(X{I),Y(T),I=1,N) 

IF (lERR.EQ.O) STOP 
WRITE (NWRIT,1030) 

RETORN 

6C WRITE (NWRIT,1''10) 

WRITE (NWDIT, 10 20) N, (X ( I) , Y { I) , 1 = 1 , N) 

STOP 

1000 FORMAT (1H1 , 10X, 44HSPLISL ERROR — ONE OF THREE POSSIBLE CAUSES/ 
117X,51H1. ADJACENT X POINTS ARE DUPLICATES OF EACH OTHER./ 
217X,38H2. SOME X POINTS ARE OUT OF SEQUENCE./ 

31TX,32H3. SOME X POINTS ARE UNDEFINED.) 

1010 FORMAT (1H1,10X,62HSPLISL ERROR -- NUMBER OF SPLINE POINTS GIVEN I 
IS LESS THAN TWO) 

102C FORMAT (//17X, 18HNUMBER OF POINTS = , I4//1 7 X , BUX ARRAY, 6X,8HY APR 
1AY/(17X,2G13.5)) 

1030 FORMAT (1H1) 

END 


SUBROUTINE SPINSL(X,Y,N,Y1P,YNP, Z, M AX , Y I NT, DYDX , D2YDX ?) 

— SPINSL CALCULATES INTERPOLATED POINTS AND DERIVATIVES 
--FOR A SPLINF CURVE 

— END CONDITION - FIRST DERIVATIVES SPECIFIED AT END POINTS 
COMMON NREAD,NWRIT 

DIMENSION X (N) , Y (N) ,Z (MAX) ,YINT (MAX) ,DYDX (MAX) , D2YDX2 (MAX) 
DIMENSION G (101) ,SB (101) ,EM (If^l) 

IBRR = 0 

TOLER= ABS (X (N) -X (1) ) /FLOAT (N) *1 .E-5 
C = X(2)-X(l) 

IP (C.EQ.O.) GO TO 130 

SB(1) = .5 

F = (Y(2) -Y (1) )/C-YlP 

G(1) = 3.*F/C 

HO = N-1 

IF (HO.LE.O) GO TO 140 
IF (NO.EQ.1) GO TO 20 
DO 10 1=2, NO 
A = C 

C = X(I*1)-X(I) 

IF (A*C.EQ.O.) GO TO 130 
IF (A*C.LT.O.) lERR = 1 
W = 2.* (A*C)-A*SB(I-1) 

SB (I) » C/W 
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F = (y(T + i)-Y(i))/c-(Y(D-r(r-i))/ft 
10 G (I) = (6.*F-A*G (T-1)) /W 

2C W = C» (2. -SB (N-1) ) 

F = YNP- (Y (N) -Y (N-1) ) /C 
FN(N) = (6. *P-C*G (N- 1) ) /W 

DO 30 1=2, N 
K = N+1-I 

3C E!1(K) = G (K) -SB (K) *FM (K+1) 

IF (MAX.LE.O) SETtlRN 
C 

ENTRY SPENSL (Z , B AX , YI NT , D Y DX, D2 YDX2) 

DO 120 1=1, WAX 
K=2 

IF {ABS (Z (I) -X (1) ) , LT. TOLER) GO TO 4D 
IF(Z (I) .GT. X (1) ) GO TO 50 
GO TO 80 

40 YINT(I) = Y(1) 

SK = X(K) -X (K-1) 

GO TO lie 

50 IF (ABS (Z (I) -X (K) ) . LT.TOLER) GO TO B'' 

IF (Z (I) . GT.X (K) ) GO TO 70 
GO TO ICO 
60 YINT(I) = Y(K) 

SK = X(K) -X (K-1) 

GO TO 110 

70 IF (K.GE.N) GO TO 90 
K = K*1 
GO TO 50 

8C DYDX(I) = YIP 

YINT(I) = Y (1) +Y1P* (Z (I) -X (1) ) 

D2YDX2(1) = 0. 

GO TO 120 
90 DYDX(I) = YNP 

YINT(I) = Y (N) +YNP* (Z (I) -X (N) ) 

D2YDX2(I) = 0. 

GO TO 120 

100 SK = X(K) -X (K-1) 

YINT(I) = EM(K-1)*(X(K)-Z(I))**3/6./SK tEM (K) * (Z (I) -X (K-1 ) ) **3/6. 

1 /SK*(Y(K)/SK -EM(K)*SK /6 . ) * (Z ( I) -X (K-1 ) ) ♦ (Y (K- 1 ) /S K -EH(K-I) 

2 *SK/6. ) * (X (K) -Z (T) ) 

110 DYDX(I)=-EH(K-1) *(X(K) -Z(I) ) **2/2.0/SK +EM (K) * (X (K-1 ) -Z (I) ) **2/2 . 
1 /SK* (Y(K)-Y(K-1))/SK - ( EK (K) - EM ( K- 1 ) ) *SK/fi. 

D2YDX2(I) = EM(K)-(X(K)-Z(I))/SK*(EM(K)-BB(K-1)) 

120 COKTINOE 

IF (lERR.EQ.O) FETDRN 
130 WRITB(»HRIT,1000) 

BRITE(NHRIT,1020) N, (X (I) ,Y (I) ,1=1 , N) 

IF (IERR.E(3.0) STOP 
WRITE (NWRIT.1030) 

RETORN 

140 WRITE (NWRIT, 1010) 

WRITE(NWRIT,1020) N , (X ( I) , Y (I) , 1= 1 , N) 

STOP 

1000 FORMAT (1H1,10X,44HSPINSL ERROR— ONE OF THREE POSSIBLE CAOSBS/ 
117X,51H1. ADJACENT X POINTS ARE DOPIICATES OF EACH OTHER./ 
217X,38h2. some X POINTS ARE OUT OP SEQUENCE./ 

317X,32H3. SOME X POINTS ARE UNDEFINED.) 

1010 FORMAT ( 1H1 , 10X, 62HSPINSL ERROR — NUMBER OF SPLINE POINTS GIVEN I 
IS LESS THAN TWO) 

1020 FORMAT (//17X, 18HNUMBER OF POINTS = , I4//1 7X , 8HX ARRAY, 6X,8HY ARR 
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1AY/(17X,2G13.5) ) 
1030 POBHAT (1H1) 

END 


DATA 12 

- AXIAL COttPRESSOR 

ROTOR - INLET WHIRL 

- S.I, UNITS 

1.4 

287.053 

42.82988C 

-826.5498 

0.99999 

0.01 1 

0,5 0,5 

11 31 

1 0 
-0.045720 

41 20 

4 

17 6 

6 1 1 

11 11 

15 4 

11 11 

1 

0. 

0.121920 

0.167640 

-0. 

-0. 

-0. -0. 

-0.091410 

-0.040630 

0,010180 

0.060990 

0.137190 

0.213390 

-0. -n. 

0. 117866 

0.143012 

0.155448 

1613C0 

0, 164074 

0. 164592 

-0. -n. 

-0.091410 

-0.040630 

0,010180 

0.C6099G 

0.1 3719C 

0.213390 

-0, -n. 

0.324612 

0.315986 

0.311140 

0.308366 

0,307330 

0.306568 

-0. -0. 

-0.015210 

-0.015210 

-0. 

-0. 

-0. 

-0. 

-0. -n. 

0.150663 

0.173766 

0.193335 

0.211318 

0.228C51 

0. 243779 

0.258684 0,272857 

0.286360 

0.299283 

C. 313121 

-0. 

-0. 

-0. 

-0. -0, 

288.1 5 
288. 15 

288.15 

288.15 

288.15 : 

288.15 

288.15 

288.15 

288.15 

288,15 288.15 

10 1352.93 
101352.93 

1C1352.93 
101352. 93 

101352.93 

101352.93 

101 352,93 

101352,93 

101352. 93 

101352.93 101352.93 

-5. 943600- 

-15.136368 

-21.028152 

-25.746456 

-29.733240 

-33. 186624 

-36. 234624-38.953440 

-41.404032 

-43.607736 

-45.796200 

-0. 

-0, 

-0. 

-0. 

0. 137190 

0.137190 

-0. 

-0. 

-0. 

-0. 

-0, -0. 

0. 164074 

0.183703 

0.199735 

0.214793 

0.229027 

0.242651 

0.255727 C.268UC7 

0.28C690 

0.292730 

0.307330 

-0. 

-0, 

-0. 

-0. -0. 

129221.63 

129221.63 

129221.63 
129221 .63 

129221.63 
129221 .63 

129221,63 

129221.63 

129221.63 

129221.63 129221,63 

-168. 3715 
-141.1803 - 

-159.1483 

-142.2349 

-153.3876 ■ 
-146.4107 

-149.5227 

-146,6027 

-144.3655 

-142.9390 -141.8753 

-0. 

0.001128 

0.006308 

0.013692 

0,022299 

0.033270 

0.044422 0.0557CO 

0.067045 

0.078400 

0.089707 

0.098679 

0,106450 

A. 111945 

0, 11281R -0, 

0.001305 

0.002325 

0.007352 

0,014530 

0.022915 

0.033637 

0.044579 r,055695 

0.066934 

0,078249 

0.089588 

0.098644 

0.106534 

0.112141 

0. 112984 -0. 

0.002751 

0.003683 

0.008551 

0.015512 

0.023659 

0.03410 1 

0.044704 0.055697 

0.066768 

0.077965 

0.089245 

0.098300 

0.106226 

0.111882 

0,112691 -0. 

0.004231 

0.005092 

0.009809 

0.016559 

0.024469 

0.D34626 

0.CU5C51 C.05571C 

0.066567 

0.077589 

0.088737 

0 .097723 

0.105618 

0.111269 

0. 112045 -0. 

0.005713 

0.006515 

0.011091 

0.017640 

0.025319 

0.035190 

0.045336 0. 055731 

0.066344 

0.077146 

0. 088107 

0 .096971 

0,104781 

0,110385 

0. 111129 -0. 

0.C0717O 

0.007926 

0.012370 

0.018730 

0,026187 

0.035776 

0. 045640 0 .05*^758 

0.066104 

0.C76656 

C. 087389 

0 .096088 

0.103770 

0.109294 

G. 110006 

0.008562 

0.009280 

0,01 3603 

0.019786 

0.027035 

0.036354 

0.045944 0. 055785 

0.065859 

0.076146 

0.086626 

0.095135 

0.102663 

0. 1C8C82 

0. 108766 

0.009889 

0.C10577 

0.014789 

0,020809 

0.027861 

0.036923 

0.046245 0,055812 

0.065609 

0.075620 

0.085829 

0.094128 

0.101479 

0.106776 

0. 107434 -0, 

0.011142 

0.011806 

0.015916 

0.C21786 

0,028654 

0.037471 

0. ^46'^36 0,055834 

0.065356 

0.075087 

0.085017 

C .093093 

O.1C0252 

C. 1G5414 

0. 106048 -0. 

0.012245 

0.012890 

0.016909 

G. 0 2264 4 

0.029348 

0.037947 

0.04678C 0.055839 

0.065112 

0.C74589 

0.084261 

0.092132 

C. 09911 C 

0. 104145 

0. 1Q4759 -0. 

0.013208 

0.013839 

0.017775 

0.023387 

D. ^29945 

, 0.038350 

0.046979 0.055825 

0.064878 

0.074131 

0. 083574 

0.C91260 

0 .098076 

0.102996 

0. 103595 -n. 

0. 155483 

0.155588 

0, 156C68 

0.156752 

0. 15755C 

0. 1'^8566 

0. 159600 C . 16'"645 

0.161696 

0. 162749 

0. 163796 

0.164628 

r'. 165348 

0. 165857 

0. 165938 -0, 

0.176386 

0.176450 

0.176765 

0 . 177216 

0. 17774? 

0. 178415 

0.179102 0.1798CO 

0.180505 

0. 181215 

C. 181927 

0 .182496 

D. 182991 

0.183343 

0. 183396 -0, 

0.195260 

0. 195296 

0.195485 

0. 195755 

0. 19607 1 

0. 196475 

0. 19689C 0/19731 ^ 

0. 197742 

0.198176 

0, 198613 

0.198964 

0.199271 

0, 199490 

0.199522 -C. 

0.212607 

0.212623 

0,212713 

0,212841 

0.212991 

0. 21318 3 

0. 21 338C 0.213582 

0.213788 

0.213997 

0.214208 

C. 214378 

^,214528 

0,214635 

0,214650 -0. 
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0.228744 
0.228888 
0.243892 
0. 243208 
0.258213 
0.256873 
0. 271827 
0. 269973 
0.284826 
0. 282597 
0.297289 
0. 294814 
C. 309276 
0.306740 
- 0 . 

0.099821 
-0.C13224 
0. 101676 
-0.C2311 1 
0. 103130 
-0.029779 
0. 104184 
-0.0 34282 
0. 1<:'4918 
-0.037269 
0. 105407 
-0.039040 
0. 105681 
-0. C4C0C0 
0. 10 5790 
-0. 040327 
0. 105790 
-0. C39946 
0. 105641 
-0.039061 
0. 105370 
0. 002362 
0.008862 
0. 002173 
0.CO7986 
0.C02035 
0.007318 
0.0C1933 
0.006799 
0.001855 
0.006397 
0.001798 
0.006087 
0.001755 
n. 005855 
0.001724 
0. C05687 
0.001705 
0.005575 
0.001694 
0.005513 
C. 00 1692 
0.005493 
-0.015210 
-0.C15210 
0. 00 0 

C. 80 0 

C.O 0 


0.228745 
0.228914 
0.243883 
C. 243085 
0.258196 
0.256632 
0.271804 
0.269646 
0.284799 
0.282196 
0.297259 
0,294370 
0. 309245 
0.306286 
0.003439 
0.098149 
-C. 010074 
0. 105831 
-0. 020171 
0. 111696 
-O.C27018 
0. 116061 
-0. 03 1 670 
0. 119344 
-0.C34785 
0. 121820 
-0.036662 
0. 123592 
-0.03771 1 
0.124854 
-0.038112 
0.125733 
-0.037791 
0.126119 
-0.036953 
0.126120 
G.C02624 
0.008018 
0. 092395 
0.007221 
0. 002228 
0.006615 
0.002103 
0.006147 
0. 002009 
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APPENDIX A 


FINITE-DIFFERENCE FORM OF STREAM- FUNCTION EQUATION 


The stream-function equation was derived as equation (B17) of part I (ref. 6): 

2 2 . 

^ ^ ^ ^ /sin <p ^ ^ + i ifi _ ^ / cos <p ^ i. ^ 1 ^ ^ 9y\ 

3s 2 gj2 asV r B 3s p 3s 3t/ 3t \ r B 3t p 3t 3s/ 


wW„ 


+ + ^ + F. 

r 3t ^ 


(Al) 


where 





(A2) 




= CO r cos <p 


RT" 3p" 
p" 3t 


(A3) 


F 


t 


1£1 iE 

3t p 30 


(A4) 


Equation (A4) was derived as equation (B5) of part I. 

The s and t are the distances along the orthogonal mesh generated by the program. 
At each point of this mesh where the value of the stream function is unknown, a finite- 
difference approximation of equation (Al) can be written. Adjacent to the boundary, the 
boundary conditions are included. If there are n unknown values, n nonlinear equations 
are obtained in n unknowns. The equations are nonlinear since the coefficients involve 
the density, which depends on the solution, and since the final term depends on the solu- 
tion in a nonlinear manner. The equations may be solved by an iterative procedure, with 
two levels of iteration. The inner iteration solves a linearized equation, and the outer 
iteration makes corrections to the linearized equation so that the solution converges to the 
solution of the original nonlinear equation. 

A typical mesh point with the numbering used to indicate neighborir^ mesh points is 
shown in figure 24. The value of the stream function or the other variables at 0 is de- 


201 



t 



Figure 24. - Notation for adjacent mesh points and mesh spaces. 


noted by using the subscript 0, and similarly for the neighboring points. It can be shown 
that equation (Al) can be approximated by 
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^ 4 ) ^ 4(^3 

h4) h3h4j 




(W0)q 

’a(rVg)' 

w(Ws)q' 

^0 

at 


^0^0 + ^0 + f^t) 


= 0 (A5) 


where 3(rV^)/ 9t is calculated by different methods upstream, downstream, and within 
the blade row. Upstream and downstream of the blade, equations (B21) and (B22) of 
part I are used. Within the blade row, a finite-difference approximation is used with 
values of from the previous iteration. The final result to be used in equation (A5) 
is 
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downstream 


(A6) 


In setting up the equations for solution, the coefficients of the Uj in equation (A5) 
must be calculated. This was done by expressing equation (A5) as ^ 


""O = Z ^i"i 

i=l 


(A7) 


where the coefficients are calculated as follows: 


a -2^2 
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(continued) 
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(A9) 


Equation (A 8 ) is written in the form corresponding to the calculation of the coefficients 
in subroutine COEF. The constant kg is calculated from equation (A9) in subroutine 
COEF. The quantities ^ and ^ are calculated in subroutine NEWRHO from equations 
(A2) and (A3). The quantity F^. is calculated in subroutine BLDVEL when the blade 
surface velocities are calculated. The quantities dX/du and d(rVg)jj/du are calculated 
by subroutines LAMDAF and RVTHTA when they are calle4by NEWRHO to calculate X 
or (rV 0 )p. 

Equation (A 8 ) is used at all interior points of the mesh region. Along the bound- 
aries, the boundary conditions give different coefficients. The stream function is known 
to be 0. P at the hub and 1. 0 at the shroud. At the upstream and downstream boundaries, 
the boundary condition is that the normal derivative of the stream function is zero. The 
finite difference expression for this is 

Uq = u^ on the upstream boundary 
Up = Ug on the downstream boimdary 

Since the coefficients for these equations do not depend on the solution, they are speci- 
fied in subroutine INIT. 
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APPENDIX B 


MATCHING UPSTREAM AND DOWNSTREAM FLOW CONDITIONS 
TO STRBAM- FUNCTION SOLUTION 

The work done by each blade row is determined by the change in whirl along stream- 
lines. That is. 

In this program, whirl can vary as desired from hub to tip, but for each streamline the 
work done is determined by equation (Bl). Also, the equation relating velocity W to 
temperature and density requires knowledge of upstream total temperature and whirl for 
that particular streamline. For this reason, it is most desirable to express upstream 
and downstream conditions as a function of stream function rather than radius. However, 
if experimental data are being used, measurements are obtained as a function of posi- 
tion or radius. In this case the stream function is not known, but the distribution by 
radius can be used for input to the program. Then by estimation and iteration the cor- 
rect distribution by stream function will be obtained. 

If whirl is given as a function of stream function as input (i. e. , LSFR = 

LAMVT = 0), no changes need be made after the first initialization. H tai^ential veloc- 
ity Vg is given as input (LAMVT = 1), certain subroutines must be reinitialized in 
every iteration. There are two possibilities: one that Vg is given as a fimction of 
stream function (LSFR = 0), and the second that is given as a function of radius 
(LSFR =1). In either case, what is needed is the relation between stream function and 
radius along the input lines. This relation is determined by the stream -function solution 
obtained by SOR. In each iteration, then, reinitialization calls are made by LOSSOM 
if LAMVT = 1. If LSFR = 0, SFIN and SFOUT are given as input, and RADIN and 
RADOUT are corrected by the initialization calls to LAMNIT and RVTNTT. If LSFR = 1, 
RADIN and RADOUT are given as input, and SFIN and SFOUT are corrected by the same 
calls. In either case, SPLINT calls are made to readjust the spUne-fit coefficients for 
all four subroutines - LAMDAF, RVTHTA, TIPF, and RHOIPF. 
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appendix c 


CALCULATION OF PARTIAL DERIVATIVES OF THETA ON ORTHOGONAL ME SH 

In the THETOM subroutine, 30/3s and dO/dt are calculated at the orthogonal mesh 
points that lie between the leading and trailing edges of the blade. The information 
needed to make this calculation exists as 6(z, r) on the input blade sections. The 
THETOM procedure is designed so that an accurate calculation is maintained in the 
transition from input blade mesh to orthogonal mesh. 

The orthogonal mesh on a tj^ical blade is illustrated in figure 25. Note that some 
of the t mesh lines cross the leading and trailing edges of the blade. To alleviate the 
problem of calculating 0 -gradients on this mesh, they are first obtained on an alternate 
mesh, shown in figures 26 and 27, of s'- and t'-coordinates. Then, by interpolation, 

dO/ds and d9/dt are obtained at the desired orthogonal mesh points. 

There are several reasons why it is convenient to use an alternate mesh to calcu- 
late de/dB and 30/ 3t. First, there are usually not sufficient input planes or points 



Figure 25. - Orthogonal finite-difference mesh on solution region. 



Figure 26. - Semi-alternate mesh with 5-percent-chord hub- 
shroud lines. 
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to permit an accurate direct calculation of dd/ds and 39/ dt using the input blade- 
section points alone. Second, corresponding points on adjacent input blade planes are 
not required to fall on smooth curves from hub to shroud. Finally, the angle cp is 
known only on the orthogonal mesh, and not at input points, so that 39/ ds and 39/ 3t 
cannot be obtained directly at the input points and then interpolated to the orthogonal 
mesh. Therefore, a fine-grid alternate mesh is used on which 39/ 3z and 39/ dr are 
calculated. These are then interpolated to the required orthogonal mesh points and 
transformed to 39/3s and 39/3t. Note that it is more accurate to calculate partial 
derivatives first and then interpolate and transform the partials to the s- and t- 
directions, than it would be to interpolate 9 itself from the input mesh to the orthog- 
onal mesh and then calculate the partials along mesh lines. 

The step-by-step procedure to obtain 39/3s and 39/3t is as follows; 

(1) Calculate rotated z- coordinates (ZPC) of points along the input blade sections 
at 5-percent-meridional-chord locations, that is, at the semi -alternate mesh points of 



Figure 27. - Full alternate mesh on which gradients of 0 are 
obtained. 



Figure 28. - Relation of semi-aite mate mesh to z- and 
r-diredions. 
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figure 26. 

(2) Use SPLINT calls along each input blade section to obtain corresponding rotated 
r-coordinates (RPC) and angles with respect to the unrotated z-axis Qfjjg (fig. 28). 

(3) Calculate arc length SZRBL along each input blade section (Sjj^g direction) using 
the ZBL, RBL coordinates. 

(4) Calculate arc length SZRPC along the same blade sections using the calculated 
ZPC, RPC coordinates of the semi- alternate mesh. 

(5) Use SPLINT calls in the s^g-direction (or SPINSL if BETALE and BETATE 
are specified) to calculate 0 and 30/38^^^ at the ZPC, RPC points from known 6 at 
the ZBL, RBL points. 

(6) Use SPLINT calls in the Sj^g-direction to calculate blade thickness in the 9- 
direction (TTPC) at the ZPC, RPC points from TTBL at the ZBL, RBL points. This con- 
cludes the calculation of variables at the semi-alternate mesh points of figure 26. 

(7) A procedure is then begun to obtain required distances, angles, and gradients on 
a finer grid of points along the lines in the t'-direction, that is, at the points of the full 
alternate mesh of figure 27. Store values of z, r, 9, blade thickness, (Xj^g, and 
90/3S|jg into arrays along the t’-lines. 

(8) Calculate arc length SZRBL along the t'-lines using the ZPC, RPC coordinates 
(stored for each line in ZPCTl, RPCTl). 

(9) Calculate r-coordinates (RPCT2) of points along the t'-lines at 5-percent dis- 
tance increments from hub to shroud (where s' and t' cross, fig. 27). Use SPLINT 
calls to obtain corresponding z-coordinates (ZPCT2). 

(10) Calculate arc length SZRPC up the t'-lines using the ZPCT2, RPCT2 coordi- 
nates of the full alternate mesh. Also calculate angles with respect to the unrotated 
r-axis (fig. 28). 

(11) Use SPLINT calls in the t'-direction to obtain 9 and d9/dV at the full al- 
ternate mesh points (ZPCT2, RPCT2) from known 9 at the semi-alternate mesh points 
(ZPCTl, RPCTl). 

(12) Use SPLINT calls in the t'-direction to obtain 30/3s^jg, and blade thick- 

ness at the full alternate mesh points (ZPCT2, RPCT2) from known values at the semi- 
alternate mesh points (ZPCTl, RP'CTl). 

(13) Store calculated values of z, r, 9, blade thickness, and 99/ds^^ at the 

full alternate mesh points into two-dimensional arrays ZPC, RPC, THPC, TTPC, 

ANGZ, and DTHDSP. This procedure, from step 7 to step 13, is executed for each of 
the t'-lines of the alternate mesh. 

(14) Calculate d9/dz and d9/dr from S9/ds^^^ and d9/dV at the s'- and t'- 
points of the full alternate mesh with the following equations: 
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90 “f 

90 

sin «bs 
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9z 

9Sbs COS(Oi,g + Of) 

9t' coaia^g + a^,) 

1£= - 

90 “f 


cos ojjg 

9r 

9Sbs cos(ajjg + a^,) 

0t' cos(a^g + ff^,) 


(The dd/dz and 90/3r gradients are the ones that will be interpolated back to the 
orthogonal mesh and then transformed to get 90/08 and 90/9t.) 

(15) Interpolate, by using LININT calls, from 90/9z and 90/9r on the s'-t’ 
alternate mesh to obtain 90/9z and 90/9r on the orthogonal mesh points that Ue 
between the leading and trailing edges of the blades. 

(16) Transform the 90/0z and 90/9r to obtain 90/9s and 90/9t at the ortho- 
gonal mesh points within the blade (fig. 25). The following equations are used: 


.§£ = — cos <p + — sin (p 

(C3) 

0s 3z 3r 


Ms — cos <p - — sin <p 

(C4) 

9t 9r 9z 
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APPENDIX D 


INCOMPRESSIBLE STREAM-FUNCTION EQUATION 


The stream-function equation is modified slightly for incompressible flow. The 
only terms that must be altered in equation (B14) of part I are the two terms dl/dt 
and T ds/dt. Since it is assumed that there is uniform total pressure upstream and no 
total pressiire loss, 3s/ 9t = 0. By definition, I = Hj - wX. For uniform upstream stag- 
nation conditions, is constant, so that 


3t at 


(Dl) 


For incompressible flow, equation (Dl) is used instead of equation (B16) of part I in 
equation (B14) of part I. The result is that equations (Al) and (A4) are unchained and 
equations (A2) and (A3) are replaced by 


1 = 0 

(D2) 

c = u> — 

(D3) 


3t 


However, in the program, the variable Z ETA is not used for this purpose, but w 3X/3t 
is added at the proper point in subroutine COEF. 
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APPENDIX E 


GENERATION OF LEADING- AND TRAILING-EDGE RADH ON 
TSONIC BLADE SECTIONS 


In the TSONIN subroutine, blade- section geometry along streamlines is calculated 
for input to the TSONIC program (ref. 3). In this process, leading- and traiUng-edge 
radii must be generated within the blade- coordinate envelope used in MERIDL. 

The blade envelope in the leading-edge r^ion along a streamline for MERIDL is 
shown in figure 29. The envelope has thickness at the leading edge, which is the way 
blockage is modeled in MERIDL. The points wnere the meridional streamline is inter- 
sected by MERIDL vertical orthogonal mesh lines are also indicated. These are pro- 
jected in the 0-direction to the blade surfaces to obtain potential TSONIC input points, 
as shown in figure 29. Some of these points near the leading or trailing edge will later 
be eliminated. 

Stibroutine TSONIN calculates a leading-edge radius within the envelope of fig- 
ure 29, as shown in figure 30. This leadir^-edge radius touches three sides of the 
blade-section envelope and is entirely contained within it. The technique for calculating 
this radius is as follows. A similar technique is used at the trailing edge. 

(1) Calculate the r-coordinate at the leading edge of the blade section r^^. This 
rjg will be used for all points in the leading-edge region, not just those at A and B. 

(2) Initially set a counter (ICOUNT) to zero and a damping factor (DAMP) to 1. 
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Figure 30. - Envelope of blade surface coordinates with respect to TSONIC 
origin. 



Figure 29. - Envelope of blade surface for MERIDL flow model. 


(3) Initially estimate the tangency angles and jSg (at points 1 and 2, fig. 30) 
from the slopes of the two blade surfaces at their end points (A and B in fig. 29). 

(4) Initially estimate a leading-edge radius, RI, using 0-coordinates at points A 
and B: 


(5) With the estimated RI, calculate m-coordinates of tangency points from (fig. 30) 

mj = Rl[i.- sin(^j)] 
mg = Rl[l.+ sin(/32)J 

(6) With SPLINT calls on each of the blade surfaces and m^ and mg, calculate new 
estimates of the tangency point 0-coordinates 0^ and 0g and surface slopes d0j^/dm 
and d0g/dm at these points. 

(7) Using rjg and the surface slopes, calculate a new estimate of the tangency 
angles and /3g: 


213 



-1 ^le 


= tan 


dm 


^2 = tan 


-1 ^le 
dm 


(8) Estimate new leadii^-edge radius, using updated tangency point 0-coordlnates 
and /3’s: 
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cos 
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+ cos 


^2 


(9) Check relative change in RI. K tolerance is met, RI is set to and ac- 

cepted. If the tolerance is not met, RI is recalculated as follows: 

(DAMP)(RI) + 

RI 

DAMP + 1. 


and the iteration loop from steps 5 to 9 is repeated. 

If the calculated RI ever becomes negative in this procedure, DAMP is Incremented 
by 1 and the process is begun again at step 3. The counter ICOUNT is incremented by 
1 for each loop through steps 5 to 9. If ICOUNT reaches 100, an error message is 
printed and the current value of RI is accepted. 

The leading-edge radius calculated by this process will be that shown in figure 30. 
The TSONIC origin in this figure is at point T, and the MERIDL origin is at point M. 
The A0 from point M to point T is calculated as follows: 


A0 


cos ^2 + ^2 
cos /3 + cos ^2 


and is subtracted from the surface coordinates relative to MERIDL origin to obtain 
those relative to TSONIC origin. 
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APPENDIX F 


CALCULATION OF CHANGE OF DENSITY DUE TO BLOCKAGE AT BLADE 

LEADING OR TRAILING EDGE 


For the transonic velocity-gradient solution, incidence and deviation corrections to 
the assumed midchannel stream surface are made near the leading and trailing edges, 
as described in appendix F of part I. There is no correct existing value for the density 
within the blade row to use in this process. However, this density, can be calcu- 
lated from the free-stream density by makii^ a blockage correction with the con- 
tinuity equation. Iteration is required to solve the equation involved in this calculation. 
This calculation is done in subroutine LINDV. 

From the assumption of continuous angular momentum and from continuity across 
the leading and trailing edges (but allowing to be discontinuous), the following 
equation is derived as equation (FI) of part I: 



Also, from continuity, we have 

(pW cos /3)fg (Pitch) = (pW cos ^)^^j ®ie 

2 2 2 
By using the relation cos /3 = 1/(1 + tan ^), we can solve for to obtain 



^^2 Pfs pitch^ 


Finally, is related to p^j by the relation 


Pbf = Pi(l - Ploss) 
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2c T! 
pi 


(F2) 


(F3) 


where 
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Ploss = 



Equations (FI) to (F3) can be solved iteratively. The procedure to be used depends, 
however, on whether the meridional component of velocity is subsonic or supersonic. 
Also, it should be noted that with high subsonic velocity (Wm)jg, there may be no solu- 
tion possible for(pWjn)^j, especially with lai^e blockage. 

The equations used for the iterative solution are as follows: Let 


(tan 

^ Pfs(Pitch) 


1 + tan^/3jg 


(F4) 


(F5) 


In the program code, is the variable CX)NST1 and kg is CX)NST2. For the initial 
estimate in the iteration, use = p^g, which is already known. 

The usual case is when is subsonic, hi this case the sequence is to calculate 

^bP ^bf’ Pbf' equations for this (from eq. (FI) 

to (F3)) are 





(F6) 

(F7) 


p^jf = p!(l - Ploss) 


1 - 


WjJj + 2oj\ - (wr) 
2c T? 

p 1 


2-|V(y-i) 


(F8) 


Equations (F6) to (F8) are then iterated. This will converge to the subsonic solution if 
it exists. 

The other case is when W is supersonic. In this case the sequence is reversed 

rt In 

to calculate followed by the new p^^^. The equations for this (from eq. (FI) 
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to (F3)) are 




^bf 


!(1 - Floss) 


n 


2CpTJ - 2w\ 


+ 


(a,r)2 


(F9) 


Pbf ■ 


<-■'2^1 


(FIO) 


Equations (F9) and (FIO) are then iterated. This will converge to the supersonic solu- 
tion if it exists. 

Since the procedure depends on whether is subsonic or supersonic, is 
checked to deternrine which procedure to use. Actually, we want to know the value of 
that corresponds to the maximum value of This occurs when 

<l(pWm)/dWjj^ = 0- By differentiating 


PW^ = Pi 


1 - 


w 


m 


+ W^+ 2uA - (cor)" 


2c T! 

p 1 


l/(y-l) 


(1 - Ploss)W, 


m 


we obtain 


d(pW^) 

= p(l - Floss) 

dW, 


m 


w: 


m 


(V - DCpTj 


= 0 


Hence, 



sonic 


= yRT 


(Fll) 


as expected. But 


T = T** " 


+ Wrt 

m ^ e 

2c 


Substitute this into equation (Fll) and solve for to obtain 
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(F12) 



In subroutine LINDV, is calculated by equation (F12). K (Wm)|g is less 

thai»(Wjjpi)g^jjj^., equations (F6) to (F8) are used to calculate p^jf iteratively. And if 
(Wm)fs 1® greater than (Wm) equations (F9) and (FlO) are used. In either case a 

solution may not exist because the blockage is enough so that (pWq])|j^ is larger than 
In this case an error message is printed and p^^j is set equal to pj^. 
Calculation will proceed but may be Inaccurate. 
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APPENDIX G 


LINEAR INTERPOLATION IN A QUADRILATERAL . 

There are several instances where it is required for the prc^ram to interpolate 
from a two-dimensional array of values on a grid. If the grid were rectangular, this 
would be straightforward. However, usually this is not the case. In most cases the 
grid is a rectangular grid that is deformed like a net that has stretched out of shape. 
Thus, each region has four sides, but the corners are not necessarily r^ht angles. 

The method of interpolation is the simplest possible. First, we find the particular 
quadrilateral containing the point, as shown in figure 31. All that is necessary is to 
interpolate linearly within the quadrilateral. The interpolation is linear along the 
boundary and between corresponding points along the boundary. 

An illustration should clarify the manner of interpolation. Suppose it is desired to 
find the value at point P in figure 32. It is assumed that values of the function are 
known at the corner points A, B, C, and D. The function values at these points will 
be designated F^, Fg, F^^, and Fj^. Suppose that the point P lies on a line between 
points three-quarters of the way along AB and CD, as shown. Also suppose that P 
lies on a line between points two-thirds of the way along BD and AC, as shown. Then, 
we can interpolate linearly along AB and CD, followed by linear interpolation along 
the vertical line through P. If F is the interpolated value of P, we obtain 


F = -L F . + i F„ + 1 Fp + i Fj. 



219 




Figure 32. - Example of linear interpolation in a quadrilateral. 



The same result is obtained if we interpolate linearly along BD and AC, followed by 
linear interpolation along the horizontal line through P. 

Figure 33 shows a quadrilateral containing a point Pq where it is desired to inter- 
polate. It is assumed that the values of the function to be interpolated are known at the 
four corners and that the coordinates of the point Pq are given. The function values 
are denoted by z, and the coordinates by x and y. Subscripts are used to indicate 
the point. There are 14 values required to perform the interpolation: the coordinates 
of the four corners (eight values), the coordinates erf the interpolation point (two values), 
and the function values at the four corners. K these 14 values are known, an equation 
for linear interpolation can be derived. 
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Figure 34. - Typical quadrilateral with 
interpolation lines. 


Figure 34 shows the same quadilateral as figure 33 but with the added lines P P 

and P^Pg. The line P^Pg passes through the point Pq and is chosen so that ® ® 

^1^5*^1^3 " ^2^6*^2^4' Similarly, P„P- passes through P„ and P,Pr,-p.p„ = 
PgPgCPgP^. Now let u 1 7 1 2 




P1P7 

^1^2 


(Gl) 


f- = 


PiP, 




P1P3 


(G2) 


The coordinates of any point P. will be designated by (x., y.). The difference of 
any two x or y values will be designated by Xy = Xj - or y.. = - 7j. Thus, 

f .""SI ysi *62 y62 

V = (G3) 

^31 y31 *42 y42 


The equation of line P-Po is 

0 D 


^ ' ys yes 



(G4) 
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By using equation (G3), y^, yg, Xg, and Xg can be expressed in terms of fy and the 
known values. For example, 

y5 = yi-^y5i=yi- Vi3 


In a similar manner, we obtain 

ys = yi - 
ye = y2 + V42 
^5 " ■ Vl3 

^6 "" ^2 V42 

By substituting equations (G5) into (G4), we obtain 


(G5) 


y-yi + Vi3 y2-*- V42'yi-*- Vi3 « 

X - Xi + fyXjg X2 + fyX42 - Xj + fyXj3 

This line passes throvigh Pq, so when x = Xq, y = yg. When this substitution is made 
and we multiply through by the denominators, we obtain a quadratic in fyi 


afy + My + c = 0 


(G7) 


where 


^ " yi3^42 ■ *isy42 


^ = ^i3yQ2 " yi3*02 yQi*42 ■ ^0iy42 f 


(G8) 


c - yoi*2i ■ *oiy2i 


In a similar manner, we can obtain a quadratic in f^^: 
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(G9) 


af 2 + bf^ + c = 0 


where 


^ = yi2^43'*12y43 1 


^ ” ^12^03 " y 12*03 y01*43 ~ *0iy43 


> 


(GIO) 


c = yojxgi - xg^yg^ 


n a # 0 in equation (G7) or (G9), there are two solutions for or fy. However, 

there will be only one value between zero and 1. When two sides are parallel, a will 

be zero and only one solution exists. Caution is needed when a is not zero but is very 

small. In this case there is one and only one solution between zero and 1; but if the 

usual quadratic formula is used, the answer will be inaccurate. The solution, however, 

can be accurately calculated by using a binomial expansion. 

If we let f represent either f or f , the solution to either (G7) or (G9) can be 

X y 

written as 



(Gil) 


When a is zero or small in magnitude, we want the root that is closest to zero. This is 
obtained by choosing the minus sign for the last term. Now we expand 



by the binominal series, to obtain 

L 4ac j 2ac _ 2a^c^ 4a^c^ lOa^c^ 

T b^ b^ b^ b® b® 


(G12) 


for |4ac| < b^. Substituting equation (G12) into equation (Gll), with the minus sign, 
gives 
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f = -£ 
b 


+ . . 


(G13) 


[ b2 


K 3 3 
5a c 


2 

Equation (G13) is used when ac/b is small. Otherwise, the usual quadratic formula 
is used, fo the program (i. e. , in subroutine LININT and also in subroutine CONTIN), 
equation (G13) is used whenever |4ac| :< b^lOO. Only three terms of the series are 

q o g ’ ' 

used; the term 5a c /b is dropped. This leads to a maximum relative error of less 

—7 I I 2 

than 10” , When |4ac| > b /lOO, the quadratic formula will lose no more than two or 
three decimal places in accuracy. 

There is one further point that must be considered. Up to this point, it has been 
assumed that the interpolation point is within the overall grid area, and thus we only 
need to interpolate within a quadrilateral. However, there are cases where extrapola- 
tion is necessary. In this case, the nearest quadrilateral is identified, and extrapola- 
tion is used. The procedure is similar, but one of the f's must be either negative or 
greater than 1. The problem, then, is to determine which f to use. Since the direc- 
tion of the extrapolation is known, it is known whether f is negative or greater than 1. 
For example, suppose it was necessary to extrapolate below the bottom of the grid area. 
Then fy must be negative. If only one of the two possible values is negative, the ques- 
tion is settled. If both are negative, the larger value (closest to zero) is used. 

After both and fy are obtained, the linear interpolation can be performed to 
obtain Zq. Linear interpolation along PjP2 ^3^4 followed by linear interpola- 
tion aloi^ ^7^8* interpolations are calculated by 


==8 = ^3 + y^4 - ==3> 

Zq = Z7 + fy(Zg - z^) 

Combining these equations, we get 

^0 = ^1^^ ■ ■ V ■ V • ^x^^y + ^4Vy 
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APPENDIX H 
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W 


j+1 
j+1 


w 
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SYMBOLS 

coefficients for finite- difference equations 
tangential space between blades, rad 
blade-to-blade streanasheet thickness 
specific heat at constant pressure, J/(kg)(K) 

vector normal to midchannel stream surface and proportional to tan- 
gential pressure gradient, N/kg 

absolute total enthalpy, J/kg 

2 2 

rothalpy, c T| - wX, meters /sec 
constants for finite -difference equations 
meridional streamline distance, meters 

O 

pressure, N/meter 

gas constant, J/(kg)(K) 

radius from axis of rotation, meters 

radius of curvature of meridional streamline, meters 

distance along orthogonal mesh lines in throughflow direction (fig. 25), 
meters 

temperature, K 

distance along orthogonal mesh lines in direction across flow (fig. 25), 
meters 

normalized stream function 
absolute fluid velocity, meters/sec 
fluid velocity relative to blade, meters/sec 
W at next point, meters/sec 
first estimate of Wj^j, meters/sec 
second estimate of meters/sec 

mass flow, kg/sec 
axial coordinate, meters 
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a angle between meridional streamline and axis of rotation (fig. 4, part I), rad 

/3 angle between relative velocity vector and meridional plane (fig. 4, part I), rad 

angle between absolute velocity vector and meridional plane 
y specific-heat ratio 

? coefficient in stream-function equation, defined in eq. (A3), meters/sec^ 

9 relative angular coordinate (fig. 4, part I), rad 

X prerotation, (rV^)^, meters /sec 

^ coefficient in stream-function equation, defined in eq. (A2), 1/meter 

O 

p density, kg/meter 

(p angle between s-coordinate line and axis of rotation (fig. 25), rad 

n overrelaxation factor 

(t) rotational speed (fig. 4, part I), rad/sec 

Subscripts: 

av average blade-to-blade value 

b blade 

bf blade flow 

cr critical 

fs free stream 

hub hub 

i inlet 

I blade surface facing direction of positive rotation 
le leading edge 

m component in direction of meridional streamline 

mid midchannel 

o outlet 

r component in radial direction 

s component in s- direction 

t component in t-direction 

te trailing e(%e 

tip tip 
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tr blade surface facing direction of negative rotation 
z component in axial direction 

9 component in tangential direction 

Superscripts: 

' absolute stagnation condition 

" relative stagnation condition 
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